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The information in this manual has been reviewed and is believed to be entirely reliable. However, 
no responsibility is assumed for inaccuracies. The material in this manual is for information 


purposes only and is subject to change without notice. 
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Chapter 1. _, WELCOME TO YOUR PET COMPUTER 


Congratulations and welcome to the exciting new world of personal computers. By selecting 

the PET 2001 you have eliminated the problems of getting a personal computer system running. Your time 
is now available for learning the functions and Capabilities of your PET. In fact. if you foflow.a few simple 
Procedures outlined in this manual, you should be able to achieve initial operation of your Pet 2001 within 


a short period after unpacking the shipping container. 


The potentials of your PET are virtually limitless. This book, by its very nature, is limited. Questions will 
arise that this book has not covered or even anticipated. 


Write to us at Commodore with your questions. We will answer many that you and other users will pose 
with a newsletter we'll be sending out from time to time to users, 7 


r& 


Commodore Systems Divisions: 

3330 Scott Bivd. Prog bovos bas een? 3 : 
Santa Clara, Ca. 95050 ‘ PORE 2 Ag Ries : . ws 
USA 


360 Euston Road ort pmbasy betceg gic? Bet 2 
London NWI 3B1 
England 


3370 Pharmacy Avenue 
Agincourt 

Ontario. M1W 2k4 : oe ety anaes 
Canada 


PET is a Personal Electronic Transactor. Everything is complete in one steel cabinet. It contains a CRT 
board. keyboard. computer board, and a Commodore supplied cassette. There is a built-in black and 


white television monitor, which displays characters in a format that appear to you to be forty characters 
by twenty-five lines. ae 


At the heart of your PET 2001 is an MCS 6502 microprocessor. This microprocessor totally controls 
operation of the screen, keyboard, cassettes, and additional peripherals which can be added to the PET. 
The product is so construed that you cannot damage the PET from the keyboard. The Operating system 
cannot be destroyed because the computer software, or operating instructions are contained in a fixed 
memory. (Catled Read-Only-Memory) This allows both the first time user and the sophisticated user to 
use the PET with impunity. : 


In order to satisfy the needs of the serious user as wel! as the first time user of a computer product, we 
have used three formats in this manual. 


Summary discussions in this type font are designed to answer the questions of 4 professional 
programmer. When you are first using your PET manual, read these sections lightly and spend time on the 
more detailed explanations which are in the type font of the preceding paragraph. After you have used the 
PET a bit, the italicized summary sections will be useful when you want to review how a particular 
instruction works. 


The third type of format gives a detailed description of how the PET implements a section. These 
sections are for people who use the PET at the machine level. The first time reader may find these 
sections difficult to follow and we recommend he/she use them only on re-reading the material when 
more familiar with the PET operating system. The language which you will use to communicate with your 
PET is called BASIC, an acronym for Neginners All-purpose Symbolic Instruction Code. 
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" It should be noted that there are other reference material written about BASIC, with different types 


of usage in mind, which are available to the public. We have included a list of such suggested reading in 
the appendix. Some of these manuals may be more useful to satisfy a specific need which is not covered 
in thts particular manual. 4 


The ultimate teaching device for learning how the PET works is the PET itself. In some cases, we will 
ask you to use the PET along with the text, rather than just continuously reading what to do. In any 
case, this documentation is sufficient to allow you to get started on an example. By constructing similar 
examples of your own, any questions which might arise are answered by the machine itself. Of course, 
we invite comments on this material and particularly on examples which you as an individual have used 
to resolve any unclear statement. 


Lastly, since this manual cannot presume to provide all technical information of hardware or 
programming aspects of the MCS 6502 microprocessor, we direct you to two other Commodore 
publications: There is a manual available from your dealer called Hardware Manual which also includes 
descriptions of the auxilliary devices which generate the control signals necessary to allow the PET to 
operate. Detailed specifications of the computer and the language in which it operates are available in a 
book called Programming Manual. This is available for purchase from your PET dealer or either can be 
purchased from Commodore directly. 
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Chapter2. ~ : UNPACKING YOUR PET AND TURNING IT ON 

Please check the carton tor any special unpacking instructions and carefully examine your PET for any 
concealed damage. If anything is amiss, reportly this immediately to both the place of purchase and the 
shipping agent. 

Remove your PET from its pratective shipping carton and place it on the counter, desk, or other suitable 
surface, then plug it into any standard, grounded electrical outlet. {in some countries no plug is provided.) 
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Figure 2.1. Rear view of PET 2001-8 showing switch, 
fuse, line cord and interfacing connectors fu htistedrty pepeietesine 


The power switch is located in the left rear of the PET. Closing the switch to the left turns the PET on and 
closing it to the right turns it off. There is a white dot on the power switch to indicate it is in the power-on 


position, or an ON/OFF label.) 


immediately, when the power switch is turned on, power is supplied to the internal circuits. There is a 
time-out circuit in a special condition (reset condition) which initializes them into a known state. if the 
screen has had power immediately prior to this time, you will see on the screen a variety of strange 
characters which reflect the current contents of the computer memory which is controlling the screen. 
The screen memory transfer to The screen is done with circuitry outside contro! of the main 
microprocessor, and so, even when the computer is not operational, the screen always displays the 


current contents of the screen memory. 
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Al the 6nd of the power-on cycle, the computer initializes the internal memory, blanks the screen 
temporarily, nd then displays on the screen a message like the fostowing: A 


***COMMODORE BASIC*** 
4... 15359/31743 BYTES FREE 
el / 7. . READY, vee 
treba by soo gn. O tt} Peat 





SU ies Madina tnt * 





- ‘ThE 15359/31743 retets to available users’ programmable memory. A byte is the fundamental data element of 


the PET éemputer and corresponds roughly to one letter or digit of information. A 16K PET will display 15359 
bytes free and 4 32K PET will display 31743 bytes free. LEAP Pe Veo wie 
if you fail to get the power-up display the first time, try turning the power switch slowly off, then back on. 


To get the display, four different types of memory are used: ROM, Meer Read/Write, VO toh 
(inpur/Output), and Screen Memory. We IN Gat leash tepee of ane 
The relationship between these memories is shown in figure 2 py ne ene 
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Figure 2.2. PET memory bus 





VO MEMORY 


ROM (READ ONLY MEMORY) 
ROM causes the PET to perform most of its operations. In each PET, 14K of ROM contains a series of 


programs written by Commodore which scan the keyboard, print the display, control input/output, count 
the real time clock, and execute commands that the user types in. Read Only memories are not only 
the lowest cost memory for storing this data, but also give the user the most protection and the fastest 
operation of his machine. This is because the operating system memory is indestructible from the 
keyboard, or from the user's program. Not only is the machine available to run BASIC from the momentitis 


powered on, but also the user program cannot damage the BASIC operating system, hey 


The second type of memory is that which i is devoted to rapublautout operations. This memory contains V0 
devices called PtA* and VIA** which allow the PET to individually control the bits that manipulate the 
computer. Except when special 1/0 operations are desired, the user should not allow his program to 
interfere in any way with these areas. The operating system automatically handles these locations in 
order to perform legitimate Input/Output operations. mos a rc 


Se od mrreat sos 


USER READ-WRITE MEMORY - R.A.M.(RANDOM ACCESS MEMORY) 
The third type of memory is the User Program Memory Space. (We will call this area RAM 


throughout this book.) In a standard 8K PET, it is located from location $0000 to hexidecimal 
$1FFF. A detailed map of all the memory is included in figure 2.3, showing where the ROM, 
RAM, {/O, and Screen Memory are located from a programming standpoint. As you can see 

by the map, the first 1024 bytes of memory are reserved for the operating system to use 

for its various tasks, including the buffering of data from the cassettes and other I/O devices. 
The message 7167 BYTES FREE” is a result of an analysis of BASIC which starts at 

tocation 1024 and cycles through the memory to determine which locations are available, thereby, 
performing a check on whether or not the Read/Write Memory is working correctly. 
ff the number was fess than 15359/31743, you may have a hardware problem. 

BASIC can automatically check up to 32K of RAM as long as the added memory is continuous to the 
memory that comes furnished with the PET. This memory is really the working aa ae in the machine; it 
is where programs are loaded and BASIC holds ali of the program variables. nee 
Later on, we will discuss some techniques to expand this memory by using tape files and 
program overlays. 


pee [ten 


SCREEN MEMORY 
The screen memory is physically composed of the same kind of chips that are used to 


make up the PET's standard memory. It is constantly being used by the CRT control electronics, 
which takes the individual bytes of memory and uses them to address a special character generator 
ROM, thus displaying characters on the screen. é 


As mentioned during the power-up discussion, this process is totally automatic, and the programmer has 
no direct control over it. 





“PIA - Periphera! interface Adaptor 
**VIA- Versatile Interface Adaptor Sais 


For information about these and related chips, see 6502 Hardware Manual. - . ‘ 
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aay eae - 
= On every cycle of the TV screen (1/69 of a second), the hardware Starts with the least address 
($8000) in the screen memory and processes the screen data starting at the upper left-hand 
od 


comer of the screen. Each character in the memory is addressed into the character generator eight times, 
— giving us an 8 row high character on the screen. The character ROM that is used generates 

8 dots each time it is addressed. These dots are serially fed to the screen, working from left to tight and 
top to bottom. This gives an 8 bit wide 8 bit tall character with no spaces between characters. The CRT 
controller automatically changes the addressing of the character generating ROM, depending 

" on whether or not it is scanning the top line of a character, the second line of of a 

character, etc. 


There are two character sets stored in the ROM. You can change the character set on the 
screen by POKEing memory address 59468 with a 14(a 12 turns it back) which turns it to 
the second character set. After you have played with the screen a little bit, you may want 
. to try this feature to see if your PET performs this way. The second character set substitutes 
~ ~.Ower case letters for the graphic set that is available in the first set. 


To understand this, let us review how characters are represented in the PET and in the memory. 





CHARACTER REPRESENTATION IN PET MEMORY 
The standard ASCII code is used to represent characters in the main memory. (RAM) 


in the PET, the 8th bit (bit 7}is used to signify BASIC command words or graphics characters for the PET 
screen. 
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Figure 2.4, ASCII character set (7 bit code) 


Example in the PET: Coun A 
Ais represented 0100 0001 $ Rack shew 
Shifted A(aspade)is 11000001. ge Line coal 


AZ Corvivct Ruture 
The screen memory is organized with a different representation from the main PET memory. 


There are onty 64 characters from the standard ASCIil set that are normally printable. 
sll aclenieeeneadeeeneneem nner eennrtan ana rentaa tenia SES EEE 
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Figure 2.5. ASCII 64 character set (6 bit code) 
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These are the same characters that are directly available on the PET keyboard. Santee ew ras 


| The representation in screen memory is derived from the standard ASCIl set by dropping bit 
~~ 6; giving us a six bit code for the keyboard characters. 


is The graphic, or shifted characters, set is represented by a 1 in bit six of the screen memory, giving an 
additional 64 displayable characters. 


| This gives the following table for PET displayable characters. It should be noted that al! of the sraphics 
“characters are verdeninee so that they are just a shift from the normal peveeald character. 
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ree Figure 2.6. PET graphic character set (7 bit code) 





oes a = a 
Example: This gives us the following conversions: 
a Character in main memory In screen memory APACE Oe 2, 
. A 0100 0001 00000001 ae petmiag adtoriiom ye 
> ¢ 1100 0001 00000001 AE deo atest 2:8) A Sah oe , 
1 0011 0001 00110001 — ; ry 
- a 1011 0001 01110001 woraeey ad allie cons 


= Note the reduction from seven bit ASCII to six bit gives the effect of changing the order 

of A and 1. In screen memory, the 8th bit is used to store reverse field. The reverse 

field consists of taking the dot pattern from the character generator and reversing it, replacing 
a white dot with black and a black dot with a white. 


“Wi the operating system is used, it automatically translates the values from ASCII into the screen 
- memory representation. Both PRINT and direct input from the keyboard result in automatic 
transtation between the screen memory and the main memory. 
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USE OF THE SCREEN MEMORY coe mat 
There are three ways to get data into the screen memory. The first of these is to POKE into 


the appropriate memory address the desired translated character. This is programmed only when 
normal updating of the screen is too slow. 


As long as the PET directly controls the screen, there Is no apparent effect from the fact that the screen 
and the PET are contending for access to the memory. The routines in the PET change the screen 
memory only during times when the screen memory is not being used for display. This slows 

the use of the screen memory down to about 40 percent of the speed obtainable with a POKE. The POKE, 
however, gives a visual effect of flashing dots, because the screen is displaying the character 

that is being passed from the PET to the screen memory, rather than the character that 

should be displayed at that particular position. When a program pokes to the screen, the faster - 

it runs the more flashing there will be. 


The second way to get data onto the screen is the keyboard. During a time when keyboard input is 
enabled, the character being struck on the keyboard is automatically displayed on the screen. _ 
The third approach is by use of the PRINT command in BASIC. When 


Ss Se OG et - « 


= # PRINT “ABC” + . . Habs 


‘ es t e +e 4 a ae a eS 


is typed to BASIC, it results in the next line being printed as: : f <> *. 


ABC 
This is a print of a literal ‘field in which all characters between the quotes are printed. 
Tne next position at.which a character will be displayed if typed on the keyboard is indicated - 
by a flashing signal called a cursor.-The cursor is a visual indication te the user of the next 
print position in screen memory. : 


What is physically happening In the machine Is that everytime the screen Is recycled, about 

tigoth of a second, an interrupt to the PET Is generated. This generates 2 real-time clock on the 
computer (the PET) and steps a blinker counter. When this counter reads 37, the character referenced by 
the screen memory pointer is reversed in the 8th bit. This causes the reference character to 

be shown in alternating normal and reverse field, giving as visual effect of blinking. 

By moving the pointer, we can print output any place on the screen. This is done by using a combination 
of the keyboard and some software called the screen editor, which man prea? screen memory under 
control of the keyboard. ge * 
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Chapter 3. BASIC KEYBOARD UNIT 


Whenever the blinking cursor appears on the screen, the computer transfers data from the 
keyboard to the screen memory. : 


Keyboard data is transferred by the interrupt routine to the screen memory each time a new 
key is struck. Only after a carriage return is the keyboard data transterred to the operating 
program, and then a whole line is transferred at once. 


There are two exceptions to this, neither one of which causes the cursor to blink. One of them 
is the use of GET, which will be discussed in a later section, and the other one is when 
the keyboard data is accessed directly using machine language programs. 


The PET keyboard has been optimized for use as a computer keyboard, though the organization - 
is similar to that of a typewriter so a touch typist does not feel totally out of place. 


However, some important changes have been made: 


1, Because of the high use of numbers and calculations with the computer, a calculator-like 
number pad has been added to the right of the main keyboard. 


2. The number pad has ail of the mathematical operators in a form that is normal for BASIC, 
3. The various keys for screen movement and editing are located on the numeric pad. 


4. The characters which are normally the shift of the numbers on a standard keyboard no 
longer require shifting. These characters are quite often used in BASIC, and it is 
convenient to have them available without shifting. 


§. All standard characters are unshifted, so that a complete 64-character graphics set is 

available by use of the shift keys. These graphics give the PET significant line drawing ability. 
PET KEYBOARD : 
The keyboard consists of 73 keys, including two shift keys, either one of which may be pressed to cause 
the upper or shifted characters displayed on the keyboard to be operational. Lower characters 
are always used unless one of the two shift keys is pressed simultaneously. Each key has 
a thin, transparent plastic film covering the keytop which should be removed. This protection was 
left in place to protect the keys against scratching during shipping. To remove the film, carefully 
peel it off by using the sticky side of a piece of masking tape so as to avoid scratching the keytops. 


There are 64 printed characters on the keyboard with 64 upper case, or shifted characters on 

the same keys. The rest of the keyboard consists of function characters. Some of the functions 

are obvious: like carriage return or cursor right and teft. Reverse on allows all subsequent characters to 
be diplayed in reverse field - black on white. 


The reverse key ts operational on a memory basis. From time to time the key is struck, the 

function is operational until it is terminated by a RETURN pressed or printed, or by pressing reverse-off 
(the shifted reverse key). This concept of reversal of function, up and down, right and left is carried 
through to the function keys, so that the complementary functions are usually combined, with one being 
the shift ofthe other, 


The keyboard is scanned using a 6520 PIA, a four line to ten line decoder and the interrupt : 
routine from the CRT controller. Each time the interrupt occurs from the CRT, the keyboard is scanned 
using a left to right scan. The keyboard is organized on a 2x 5 row matrix with the matrix 

being repeated 8 times across the keyboard. To implement noise protection and N key roll 

over, the keyboard scan routine keeps the final value of the last scan in a buffer. 


Until that key is released, no other keyboard scans are acknowledged unless a later scanned key 
is struck. The later scanned key is then considered to be the next key closure. The algorithm does not 
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give classical N key rofl over but does alfow for legitimate rejection of noise and trapping of the keys 
in the order that they are struck. 


The keyboard Is left scanning the last row, which contains the stop key. This allows the routine In 
BASIC, that checks for the stop key to sample the Input t/O device, without having to perform any 
of the normal functions of scanning. The user can take advantage of this by reading the Input character 
for that row. : bo SS 


The shift key Is a special multiple key closure and Is treated separately. if either of the two shift keys 
Is pressed, the software sets a special shift switch which is used to change the decode of the key. 

All key closures are translated using a ROM-based look-up table for the key. The shift key is encoded into 
bit 8 of the ASCII character which Is then translated into the screen representation In the standard way. 


Once the hardware translation is done, the encoded value is transferred Into a 10 character keyboard 
queue. The keyboard queue Is loaded every time a new key closure Is sensed and is unloaded as soon as 
characters can be transferred to the screen. ‘ 


This input queue is scanned by the GET routine directly to allow input without going to the screen. The 
input stack may be scanned by a user program. The user program can look at the pointer at location 158 
to determine whether or not it Is greater than zero; if it is, that means that there is data in the keyboard i 
queue. The keyboard queue is located at 623-632. The first character may be taken out; all subsequent 
characters moved down, and a load index pointer decremented by one. 


This is a dangerous routine, unless written in a machine language with the interrupt masked, because a 
new key closure could store a new value during a time that you are scanning and changing the queue. 
Both the GET and keyboard input routine take care of that automatically by only operating during the 
interrupt or with the interrupt masked. . : " tee Fe 


Whenever the screen editor routine is operational, a special two-level operating system is In play. The 
first level enables the cursor to flash and writes data from the keyboard to screen memory at the current 
cursor position. The routine then moves the cursor one character further down in memory. The process is 
repeated, trying to keep the keyboard queue empty. : : 


The second level flashes the cursor and translates and stores characters stro the keyboard into the 
keyboard queue. Meanwhile, the first level operating system always watches the Input stream for a 
carriage return. After the carriage return fs printed, this routine automatically transfers the entire line to 
the operating system. The rest of the operating system does not see the characters until they have been 
typed and a carriage return is sent. This allows for total editing of the line, prior to handing it to the 
operating system. 


An interesting trick for the more advanced programmer is to use the PET to write its own programs. By 
‘printing out a line to the screen, forcing a carriage return into the keyboard queue and then returning © 
control to BASIC, new line numbers may be entered into the memory. Another example of the use ofthe 
keyboard queue is the LOADIRUN sequence which is implemented by the keyboard scan program when a 
shift-run is encountered, the routine automatically forces “LOAD, CARRIAGE RETURN, RUN CARRIAGE 
RETURN” Into the keyboard queue. When control is returned to the input routine, the load followed by the 
run is automatically transferred in the proper order. : 


It should be noted that this keyboard queue Is only ten characters long and if it is exceeded, dramatically 
bad effects can happen to your system. The only known recovery from exceeding this queue is to power 
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the system back on and start over. When fooling with the queue, remember that if the useris typing on the 
keyboard and you do not have the Interrupt turned off, the operating system is going to kill you. 


SCREEN EDITOR ; 
Typing on the keyboard, while the cursor is active, transfers what is typed on the keyboard directly to 
the screen. This function is like a simple computer terminal which requires you to retype a whole line 
until you get it right, but the PET lets you edit your mistakes before you enter a line. The editor is best 
understood with a PET to illustrate it. The user should follow discussions on his own PET, as many erine 
examples are much more difficult to describe than to see. 


To follow these examples, two concepts are necessary. One is that when we type a? the BASIC operating 
system is goling to interpret the ? the same as PRINT. ; 


The second concept is that when we follow a ? by a all harueiere ‘tee the”, until hen next ” ‘is en- 
countered, 
are treated by BASIC as characters that you will want to have printed onto the screen. aad 


in this section you are operating the computer in what is known as a direct mode. (i.e. rather than 
programming mode). BASIC is executing each instruction like print as soon as you type it into the system 
and hit carriage return. We will see in the future that this is not the way most programs are operated. It 
does make the machine useful as a super calculator. 


The first thing that we want to do is have the machine type a simple message. You should have already 
done this with your users’ guide. However, we hope ie now that you singptetand a ANS better. We type 
the line: : 7 





eee 


?“HI THERE” 
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You will see that BASIC responds by printing HI THERE. It should be noted that each time we struck 
a key on the keyboard, the cursor moved automatically one place to the right, allowing us to type in the 
next character, and nothing else happened until after the carriage return. When the pene return 
occurred, the HI THERE appeared almost immediately on the screen. je acts Bey 4 


Let us talk about the simplest function; that is, immediately correcting a mistake. Retype the tine 

Ht THERE B. What we were trying to type was HI THERE PET, but we hit the character B rather than P. 
For those of you who are touch typists, you may have already made this mistake with the PET’s close 
keys. In order to allow you to immediately correct this mistake, there is a key which allows us to erase a 
previously struck aneraeleh This key is called the detete ee located in the upper one -hand side of the 
keyboard. ‘ a ; = ae ake 


If we strike the delete key once, you will see that the B has disappeared. Typing the P results in an 
overstrike of that position. We can now finish typing ET; then hit carriage return, Causing the PET to print 
nut HI THERE PET, a blank line, and READY. 


The delete key is the fundamental editing tool which allows you to strike out as many characters as you 
want from where you are and then retype. This is the simplest form of editing. It is implemented by 
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decrementing the screen psinter from where you are by one and striking a blank over where the screen 
pointer is. We can go back and erase the READY that is right in front of our cursor by just continuously 
striking the delete key. Notice two facts as you are striking; (1) if you strike slowly, the cursor will move 
one character at a time, and (2) if you strike fast, the cursor will actually move several characters 
before you see it blink. This phenomenon occurs because it takes 15 times as long to blink 2 characters 
as it does to overstrike one. Also, notice that the PET wraps around the screen. The screen memory is 
organized so that deleting the previous character in memory moves the pointer back over that character. 
Because of the fact that the characters scan from right to left in 40-column chunks, for example deleting 
the character at the beginning of the line, and then striking the delete key at the beginning of the line, 
deletes the 40th character of the previous line. Just keying back 40 strokes erases the READY from the 
line above, however, this is a pretty slow way of editing. 


There are three cursor movement keys on your PET. One key moves the cursor right or left; the second key 
moves it up and down, and the third key moves it home (upper left-hand corner) and clears the screen. 


CURSOR RIGHT AND LEFT. ; 
The cursor right key moves the pointer one character to the right. If. we strike it now five times, you will 


see that it moves us five columns over. It accomplishes this by changing the cursor pointer in memory. 
The cursor left key is on the same key as the cursor right and is evoked by shifting prior to striking. If we 
type that four times, you will see that now we are back one character to the right of where we started. If 
we strike it two more times, it moves us around the corner of the previous line. Cursor left, of course, just 
moves the cursor pointer one character less in memory. Going to the left, it moves one character at a 
time. Obviously, by doing this, we are able to edit the screen. However, faster editing can often be 
achieved by use of the cursor up and down keys. 


CURSOR UP AND DOWN 
The cursor down moves the pointer 40 columns to the right from its Karrant position. This give: ~ 


same visual effect as moving it down one line on the screen. For an example, try spacing over forty 
positions with the cursor right. The cursor is now on the same position on the screen, but down one line. 
To cause the cursor to move up, hold down the shift key while striking the cursor up/down key once; this 
gets us back to our original position. 


Cursor up moves the screen memory pointer “up” 40 characters from its current position, or rather, 40 
characters less in screen memory than the current position. - ees 

SCREEN EDITING 

We can now use the cursor movement characters to get up in sealants on the second H in the HI THERE 
PET message. Once you are there, you can now delete the T by striking the delete key. You will notice that 
all the characters to the right of the character being deleted are moved to the left one character. You will 
now see the delete is actually a matter of moving all the characters in memory left one, rather than just 
substituting a blank. | 
INSERT/DELETE anGs i - 

Before analyzing insert and delete, we should be reminded that the screen memory is otgantved such that 
any single line may consist of 40 or 80 characters. (See section on screen memory.) Insert and delete are 
concerned with the characters on a line. Whenever the delete key is struck, all of the characters, 
starting from. the position of the cursor, to the end of the line, are automatically shifted.one character to 
the left, replacing the character preceding the cursor. The cursor is then moved to the position of the 
replaced character. ’ 


The last character in the line is automatically blanked. Insert is the reverse of this process. If we want to 
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= fix the line that we just got through taking the T out of, we need to pti a T back between the blank and the 
HERE. In order to do that, we have to make a space in which to typa the T. To accomplish this, we strike 
the shifted insert key with a single stroke. After striking T, you will note that this now creates a screen 

- which says Hl THERE PET, with the cursor blinking over the first character of the insert. To insert more 

=. than one character, strike the insert key more than once; this moves all the characters on the line to the 
tight, and the cursor points to the first character of the insert. This then allows us to insert several 
characters on the line. For example, if we hit the insert key three times, type T's until the cursor is 

ca positioned over the H, then delete ali of the extra T’s; we will then see that the back and forth movement 

eal In the line is automatically handied and we end up with a perfectly recomposed message. It should be 
= noted that in no time has the computer responded to these commands, other than making a change on 

“> the screen. This is because we have not yet pressed carriage return to tell the PET that the fine is 

* complete. ‘ Segal ede, oy uF 


= That is why we have been talking about a screen editor. All editing is accomplished between the keyboard 
| and the screen memory, without Interfering in any way with the rest of the operating system. This allows 
* the user to compose perfect text and hand it to the computer without the programmer who is using the 
‘ data, whether it be BASIC or the user program, to worry about the intermediate steps of eine 
corrections. It is best symbolized by: poate ; ‘ ssmcace 
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“What You See Is What You Get. 
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LINES ON A PET SCREEN 
Physicatly, a line on the screen consists of 40 columns of information. However, traditionally in the 
computer business, many data inputs are organized for 80 column data cards and, of course, much more 
data can be put into 80 columns than into 40. Therefore, although the PET screen can display only 40 


ae ~ characters per line, the user is given all the flexibility of an 80-column line. This is accomplished by 

- allowing the screen to define more than 40 characters as a line. If we move our cursor over to the 

= beginning of the line below Hi THERE, and start typing NOW IS THE TIME FOR ALL GOOD MEN TO 

Ea - © COME TO THE AID OF THE PARTY, we will see that after typing the E, the space is automatically on the 

next line. You will soon see the screen considers this to be an Been line aioe ie HI BIEBER EEF 

Ce “tight above is only considered to be a 40-colurnn line. 4 

. The thing that allows the PET to accomplish this is that Internally, there is a table of pointers at the 
“ beginning of the line. Each line has a marker that indicates whether it is the beginning of a line or a 

i continuation line. This pointer is kept in the negative bit position of the index pointer. Whenever a cursor 


up or cursor down occurs, the editor examines the status of these line pointers in order to Initialize the 
: " PET to their proper fine number. At any time while the cursor is on the screen, there Is a separate value 
oP kept which is the beginning pointer for the first complete line from which the cursor operates. The screen 
position is then kept as a separate pointer telling the PET whether It is greater or less than 40 characters. 
Whenever scrolling occurs, the line pointers are moved up in such a way that the concept of the first line 
second line is maintained until the line disappears on the screen. This line pointer table is located in. 
aad memory locations 224-248. 


o Now that we understand that the PET can allow 80 columns, let us see what happens when we do the 
= insert at the beginning. To print this line, we have to put a ?” at the beginning of the characters. We move 
. the cursor up and left, until the cursor blinks on the N of NOW. If we insert twice, we can then type a ?” 


~ (it should be noted that this causes the characters on the line to all move ta the right). if we now carriage 
. return, the PET prints NOW IS THE TIME on two consecutive lines, spaces a line and types READY. If we 
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‘go up and make a change in the middle of the line, we can see that it makes no difference where we hit 


the carriage return in the line. If we space up to the word PARTY the first time that it is on the screen, now 
even though the cursor is blinking on the P, a carriage return causes the entire line to be reprinted. The 
basic rule is that when a carriage return is struck, regardless of where It occurs in the line, the entire line 
Is transferred, whether it be a 40-or 80-column line. Sophistication in using the editor will become more 
apparent as you use It when writing programs. 

SCROLLING 

Now that we have a mixture of 40-and 80-column lines on the screen; let us investigate whal happens 
when we try to move the cursor off the bottom. To do this, we just cursor down until the cursor Is at the 
base of the screen. Hitting the next cursor down causes the entire screen to move up one ting. Any time f 
we attempt to print past the thousandth character on the screen, the screen editor automatically moves 
the entire screen up one line. 


Lines move up on the screen by a one line or two line jump depending on the status of the top line on the 
screen. This ls accomplished In hardware by checking the top line pointer plus one. If an 80-column line 
is to be scrolled off the top, the 81st character through to the thousanth character are moved to the top of 
the screen memory, and the bottom 80 characters of memory are filled with blanks. If only a 40-column 
line is to be moved off the top, the 41st character is moved to the first, etc., and 40 characters are blanked 
at the bottom of memory. The cursor Is positioned automatically in the same position at the bottom of the 
screen as it was when you tried to move the cursor down; or In the case of a carriage return and/or 
printing, the cursor is moved automatically to the left-hand side of the bottom line. 


This process is totally automatic and is caused by attempting to print carriage return or space off the 
bottom of the screen. There is no other program control over the movement. As we will see when we write 
a program that causes scrolling, the scrolling speed cn the PET is too fast to read. If the reverse key is 
heid down while printing is occurring, ine scrolling will be slower by a factor of 20, 

HOME AND CLEAR - - . © 

Striking the home key moves the cursor to the upper left-hand corner me the screen athe first focation of 
the screen memory). Holding the shift key down and pressing the clear key gives you a blank screen with 
the cursor blinking in the upper left-hand corner. This is accomplished by moving blanks into all thousand 
screen positions and again homing the cursor. Clear or home can be given at any place on the screen. 


The PET basically moves data from the keyboard to the screen and then when a carriage return is struck 
moves the screen data into a program. This allows the user the flexibility of making a correction on the 
screen without having any effect on the program that is going to receive the corrected version. Keys are 
provided to allow movement around the screen and to insert or delete, as well as type over any character 
on the screen. This allows the entire screen to act as an editing place for user-controlled input. 
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Chapter 4. BEGINNING BASIC 


The combination of instructions to solve a particular problem cannot be taught in a text book. tis a 
Creative process. Someone who knows how to use the computer uses his Intuition or careful planning tc 
figure out instruction sequences to allow solution of his problem. All that we can cover in this book and 
all the PET can be - except when it is provided with pre-programmed softrware - is a tool to use for solving 
Problems. This book cannot teach you to solve your particular problem. It can, however, teach you how ta 
use the PET as an instrument. 


THE PRINT STATEMENT 
Acomputer can calculate numbers all day but it is of no value unless the computations can be displayed. 
We will begin our discussion of BASIC with the PRINT statement for that reason. 


When typing text, PRINT can be abbreviated as 7. A statement such as this: = 2. & 
PRINT “HELLO” , ree 
is an instruction to the computer telling it to display on the screen all characters between the quotes ~ in 
this case a word of greeting. On the other hand: ie Veet Se oe me. i 3 
PRINT 1024*8 
is an instruction to print the product of 1024 multiplied *8. 


It is useful to note that BASIC allows you to print more than one value at a given time. Rather than having 


_ it write a line, print ‘A' and on a second line print ‘B’, it is possible to write the line: 


PRINT 1024t 2, 1024 f 3 
which will print :he square of 1024, a few spaces, and then the cube of 1024, Details of the exact format is 
contained in the next section. The point here is that you can print as many values across a series of lines 
as you can write down. , 


Unless the computer has been instructed otherwise by means of CMD command, all print outputs are 
directed to the built-in screen. The characters are printed in the next available print position on the 
screen, under the contro! of BASIC and an editor which is keeping track of the screen position. Although 
the physical representation on the screen is 25 lines by 40 characters, the printing of up to 80 characters 
is accomplished by the screen automatically folding over the 41st character onto the next line. The 


“computer automatically scrolls the screen up one or two full lines when it reaches the one-thousandth 


character on the screen. 


The command PRINT has two major forms under the control of BASIC. (1) The standard print single 
Character which allows for printing the field specified after the print statement has ended in the form 
print variable. If the data is presented in this form, the field is printed Starting at the current screen 
position and followed by a carriage return. (2} Data presented in the form PRINT A, 8, then BASIC 
automatically tabulates printing ‘A' starting at the current screen Position then spacing over 10 
characters, prints ‘B’ followed by a carriage return. In order to cause BASIC to not send the carriage 
return after B, a ; (semicolon) is used. PRINT A;B; results in the ‘A’ being printed, then followed by no 
extra spaces, variable 'B’ is printed. The cursor is left at the end of the ‘B' field. If the variable A is more 
than seven characters, ‘B’ will be printed after spacing 20 characters,when using PRINT A,B. 


BASIC obeys the following roles for printing characters. When the field to be Printed is a string, there are 
no leading or trailing characters sent. If the field to be printed is a number, BASIC first checks its size. 
if the number is less than .01 or greater than or equal to 999999999.2, BASIC prints it using scientific 

notation. For example, .0034 is printed as 3.4 E-03. and ~ 1234567890,5 is printed as ~1.2345678E + 09. If 
the number falls between these values, the most significant 9 digits are printed, plus a decimal point if 
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needed. Trailing zeroes after the decimal point are not printed. BASIC always prints a Skip character after 
a number {unless it is printed as a string). 


it should be noted that in order to take full advantage of the PET's ability to compose text material on the 
screen, unlike most BASICs, the apparent space between fields is always a skip (cursor tight) character in 
the PET, which causes the screen to advance the screen pointer by one character; it does not result in any 
of the data screen being covered. re ee 


Because the PET allows the inclusion of all cursor positioning as literal characters within a String, the 
programmer has full control of the screen print position. The cursor control characters available to use 
as literals are clear screen, home cursor, cursor right, left, up and down. By use of these literals, one can 
compose fields of any length and in any size starting in any one of the 1,000 character positions 

displayable on the PET screen. 
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We previously discussed how the PET screen memory consists of a thousand characters of storage 
“located at memory location 8000 hexa-decimal. Characters are represented In screen memory in six bit 
ASCII code, concatenated with two additional bits. One of these bits is a reverse field and the second one 
is the upper-lower case bit. 


When printing to the screen, the print subroutine In the operating system automatically translates ASCII 
characters into the screen memory form. The various screen control characters are simply movement 
characters for the screen printer. The home character moves the printer pointer to the beginning of the 
“screen. The clear character moves the printer pointer to the beginning of the screen, and inserts the 
representation for blank in all of the 1000 characters on the screen. 


In BASIC, numbers are represented as 5-byte binary quantities,-except in the special case of integers, 
which are represented in two bytes. As far as printing is concerned, BASIC prints integers the same as it 
does floating point numbers. In fact, BASIC automatically converts integers to floating point and then the 
floating point print routine converts the floating point numbers into printable characters. 


VARIABLES 
We have already seen that the PET can be used as a large calculator which performs mathematical 


functions and then can print the results. However, in many cases, programming consists of developing 
intermediate values or performing operations until something equals a certain vatue. In order to 
implement programming at any level, we need to establish the use of functions which can have a variety 
of values at any one time. A function that can have any value is defined in both algebra and in 

programming as a variable. If you are not famitiar with the concept of a variable through mathematics; 
then a book on beginning algebra, or perhaps one of the very rudimentary texts an BASIC might help you. 
All of our discussions after this will concern themselves with the use of variables. 


In BASIC, variables are defined by two character alpha numerics. If the variable is a numeric variable then 
it has no trailing character. The character A is considered to be the variable A. Characters AA is a 
different variable. Characters A1 is a third variable, but all three are defined as numeric values. If the 
variable contains alphanumeric data, it is defined as a string. A string variable now ends with a $. Thus, 
Aand AS are numeric and string values respectively and are different variables. AAS, likewise, is different 
from AA, etc. BASIC distinguishes a variable by the fact that the first character is always an 
alphabetic character. The second character may be either numeric or alphabetic. An integer variable 
ends with %,e.g.A%. Bie a at al be a 
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Arrays are the fourth type of variable which ¢ can be dstined in BASIC. Arrays are differentiated i the 
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PET prints 0. ; 


parentheses which follow them. Parentheses define the particular value withIn an array which is to be 
used in an expression. : 


A(0,1) refers to the first character In the second row of a two-column array and is different from A, AS and 
A%. All may be specified in the same program. Specific definitions and memory allocation techniques 
for each of the types of variables follows, but first let us address some examples of how one uses 

a variable. 


Equal is used in two ways: !f encountered in an IF-THEN type of statement, equal means the standard 
mathematical function: the value to the left of the expression is compared and must equal the value of 
the right. Otherwise, when following a variable such as in the expression A=2+2, = means replace the 
value in A with the resultant of the expression to the right. . : 


Originally BASIC required the word LET before any variable assignment, but in PET the LET is optional: 
and may be omitted. A= 2 is equivalent to LET A= 2. The command CLR sets all variables in PET to zero. 
To understand how variables operate in BASIC, try the foliowing examples on your PET. Remember to 

press RETURN after each command you enter. <3 ei: te i 


CLR 
2A. 


Now type boats 
A=24+2 
MA eT 








This time PET prints 4. 
Now type 9 bcc e 
2B ; 
PET prints 0. ; ree 
Now replace the value of B with t twice the value in A, bg loin. | gay iae kathy “A 
B=2°A 7 ; 5 : 
2B aa : : _ “3 
PET prints 8. Seo es Sad eee ee ae RS RE eae Be - 
Now change the value of A by typing sat : 7 : 
A=2+3_ : 
PET prints 5. ff you mow type oe a pom nad teers bese, 
2B fig J 
PET prints 8, the same value as before. Until we give a new expression for B or re-execute the one whieh 
says B=2°*A, the value of B will remain 8 
FLOATING POINT VARIABLES 
BASIC always assumes operation, or operates totally, in floating point arithmetic. Therefore, each normat 
variable is assigned space in memory for a standard floating point number. 














Four bytes contain a binary representation of that precision. It gives us the capability of specifying about 
9 digits precision of a decimal number. Accuracy of most calculations is limited to this representation. 
Each variable is also assigned a 1-byte exponent limited to having a maximum value of +33. Exponents 
less thgan —34 yield numbers too small to distinguish from zero. ee ae ae ey 


STRING VARIABLES 
A string variable can contain a function, whether it be a number, graphics character, or standard ASCII 


character. There is a specific set of variables that allow extraction and packing of data into strings which 
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wil! be discussed later on. The string is limited to the 80 characters 9f the Input buffer. There Is a specific 
set of functions that ailow the construction of strings up to 255 ciaracters (see tater text). 


INTEGERS : - 
As we have indicated, an integer is simply a whole number. Floating point variables are stored in BASIC 


with five bytes; one for the exponent and four for the mantissa, which gives an accuracy of 9 digits. In 
many cases, variables can be expressed in much-simpler numbers. In order to allow the user most: - -~ -- 
memory efficiency, particularly in the case of arrays which can take significant amounts of memory, the 
PET has implemented the concept of storing certain numbers as two-byte integer values. Any integer 
value between minus 32,767 to plus 32,767 may be stored In the form of a two-byte number with the 
highest bit of the number containing the sign. ; 


nae 
tat] 


USE OF PROGRAM AND DIRECT STATEMENTS ; : = 
Throughout the text, until now, we have been using the programm iabhniaue which allowed us to agi the 


PET to respond directly to the print statement. In this case, BASIC is obeying the command we are giving 
it directly, as we type it from the keyboard and hit carriage return. This is so-called direct mode. tn this 
mode, we can use the PET as a super calculator. For instance, if we want the PET to add two numbers and 
divide the result by a third, we can ask it the question 2(2 + 8)/5. If you have typed that on the PET, you 
should get the answer of 2 followed by a READY. The PET will obey any statement given it from the 
keyboard, except when it is in the process of executing a BASIC program. In addition to using it as a 
super calculator and for teaching with the PET, the direct mode is quite useful for debugging of 
computer programs. Variables can be assigned intermediate values and then small sections of the 
program can be executed with GOTO statements to assess why any particular piece of code is not 
working correctly. Break points can be put in programs and current status of variables checked with print 
commands, again in direct mode, without having to modify your main program. However, except for 
debugging or in the case of using the PET as a super catculator, in order to get the computer to act as a_ 
true computing element, one has to write or !oad a BASIC program. The difference between execution in 
direct mode and a program is that several statements can be grouped together in logical order and then 
BASIC will execute all of the statements before asking the user for control. 


Suppose we want BASIC to print our Ht THERE message vertically as opposed to horizontally. We can 
easily accomplish this in a program but not very easily in a direct statement. Rutes for program entry are 
very simple. Any statement you want to be treated by BASIC as a program statement must be preceded 


by a line number. A line number may be any number from 0 to 63,999. : Rae cre eT 


A good habit to develop when typing in lines of a program is to use increnments of 10 or 100. Instead of 
1, 2, 3, etc., use 10, 20, 30. This will give you space later to add lines and make corrections in your : 
program. All you need to remember is that BASIC interprets each line number in order. y 


To print HI THERE, vertically, each line of our program will type one letter of the message. we are going 


to start with fine 10 and make each line a multiple of 10. 
10?7°H” 
2071" tee acs 
302"T” ya ES 
40?"H” Soha Suh: oe A AS 
50?"E” 
60?"'R” a A ERG in EPS ght Vie Sey ye ea Me Sete garg tT 
70?"E" a ae te My er eee ati My g x 





Whether you are typing in a program or giving direct commands like RUN, you have got to hit RETURN to 
tell the PET to take a look at what you have typed and act accordingly. The Sines ten through seventy 
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constitute a program which tells the PET to print out HI THERE. ‘ 
The program is now resident in memory. To execute the program, type RUN. This gives us the Hil THERE 
printed in the vertical format: 


mamra—-=z 





You will note that we do not have a space between the | and T. One of the reasons we use the numbers in 
the multiple of ten is that we can now insert a correction between lines 20 and 30. First, display the 


Program by typing LIST. This gives us the Program printed as follows: 0 Gr. | . . 


10? PRINT “H" 
20? PRINT “1" 
30? PRINT “T" 
40? PRINT “H” .:7- 
50? PRINT “E" - 
60? PRINT “R"™ "7. 
70? PRINT SE? > ett: 
Now type: Ne Tee Ste i } Ss 
eS eet es eB ng sy Sut agatibiveds x aqgtelg a eee oli PEM, cittnneweane of 
Press return and relist the program, and we will see that Jine 25 is inserted between lines 20 and 30. If we 
tun the program now, we get: ' ; : Ae es 












This example demonstrates the use of line numbers and the ability to insert lines numbers to make a 
correction in a program. TD Peng toanb. ap eat Seaham teres oe Le ee Gee es 





There is another way to get the same effect. First delete the space by typing 25 followed by a carriage 
return. Then list the program and see that line 25 has been deleted. Now position the cursor on the space 
following the | on line 20, and insert a cursor down. First by hitting the insert key, and then the cursor 
down key, if you don’t hit the insert key first, the cursor will move down immediately. But because you 
inserted the cursor-down (it looks like a reverse field Q), the cursor will not move until instruction 20 is 
executed. Do not farget to hold down shift before striking insert. 


When we now run the program, you see this also gives you the effect of a space on the next line. This 
would not always be true, except we had been cheating and using the automatic scrolling capability of . 
the PET which clears out the field. Had we Programmed a home prior to printing a program, we would not 
have received such a nice result. Try programming a home 5?"HOME”, then try a clear 5?7"CLEAR”. 


The screen editor will allow you to take a program and make changes on any of the lines you display on 
the screen. The list command has several features to help you get the right lines to the screen to edit. List 
takes programs and prints the contents of the basic program which is stored in memory. The command 
L-FS-T starts at the first line number in memory and lists to the screen device all the instructions to the 
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end. The longer programs features of list which allow you to list only a single line number LIST 20 which 
lists just line 20, LIST 10-50 which lists lines 10 through 50 inctude:’, LIST-50 which means list all the 
numbers from the beginning of the program through line 50 included, and LIST 50- which lists all of the 
lines from line 50 to the end of the program. Some combination of the above can be used to find and 
correct any piece of program which is currently stored in memory. Try each of the above commands on 
your PET just to see what they do with our little program. 


BASIC Is an Interpretive language related to the direct commands we are executing. BASIC executes a 
command by taking tha last line typed to It and analyzing the line working from left to right looking for key 
words and expressions which It recognizes. Every time it encounters a key word such as PRINT (or ? 
~which Is the token for PRINT), It Interprets this word into a command which means something to BASIC. 
Command words are stored In memory with bit 8 on to tell BASIC that it {s a command word, or key word. 
As a program ling Is entered into RAM memory through the use of the carrlage return, BASIC takes the 
line number and searches through memory, until It finds the same number, or the number just greater. If 
It Is the same line number, then the entire line in memory Is deleted and a new line Is inserted in memory. 
In the pro-interpreted state all the key words are replaced with the single character token for the key word. 
This sllows tha interpreter to store commands in the most memory-efficlent form. The only data stored 
Is the data typed in by the programmer such as literals, pointers to the variables, and the keywords. 
PRINT, even though It takes five characters to type, only takes one character In memory. . 


BASIC Is called an interpreter because the actual execution of the instructions is done by analyzing the 
keyword that needs to be executed in the program line, then executing that keyword under the conrol of 
‘a series of subroutines. This Is a trade-off which results in very memory-efficient storage Programs but 
longer execution times than would be true of a machine language program. Because PET BASIC uses 
tokens in memory and stores them on I/O devices whenever a program is loaded and saved, the actual 
’ eoding of data on tape or in memory fs not transferable to other machines. Itis Generel not DORE to 
use BASIC Instructions typed in from other machines. : es 


When you create a BASIC program you are operating under two levels of editor: the screen character 
editor and the BASIC line editor. The screen editor allows you to change characters within a line until the 
‘eartiage return transfers it to main mee. one ial une eoter eens ayo le add new lines and ce 
and delete old lines. BER AOR es a feos tens 
_To delete @ line, you type the line number immediately followed by a carriage return. To modify a line, 
list it first on the screen and alter it then type a carriage return to re-enter it. To replace a line, enter the 
same line number with new text end type carriage return. Melhor adele 


There are two ways to execute a BASIC program. The first of these Is to type RUN. The command RUN 
first clears all the program variables and initializes the program pointers. Then it executes each 
instruction of the program in order, starting at the lowest number. Execution continues until there are no 
more instructions, and END is encountered, or the stop key is pressed. RUN may have as an argument the 
number of the first instruction to be executed. For example, if you type RUN30, our sample program will 
ptint THERE instead of HI THERE. RUN is executed in direct mode. A GOTO statement, also executed in 
Girect mode, operates the same as RUN except that none of the variables are re-initialized. The GOTO, of 
course, must specify the line number of the first statement to be executed, e.g. GOTO 30. 
Se re ar nities Be eas adie, CES Selb es cei ficay o aes 2 

SITERALS OS : : 

~ In our HI THERE examples we have used PRINT commands with characters to be printed enclosed in 
quotes. In the PET these are called literal strings. Data Is also kept in the PET in binary floating-point 
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| numbers. Much of the data you want to work with in programs is not numeric but alphanumeric -: the way 
we talk back and forth as human beings. 
: These characters are specified to the PET with literal strings. More specifically a literal is any value 
| 
1 


contained within a set of quotes. 


To allow the maximum composition of screen data, the PET has a special set of graphics characters and 
the ability to store and execute cursor control characters which are fed to it by means of literals or other 
more sophisticated techniques. 


We have already discussed in a section on PET keyboard input how the PET Stores its data in ASGIl. 
Graphics characters are stored as an extension to this set. Graphics are Produced by shifting from the 
original 64 character set and they are stored in memory with a special indicator to differentiate tham fram 
the lower characters on the keys. A literal can be used to draw a line just as easily as it can be used ta 
print Hl THERE. ae pf ee . - 


| 
| ak 
Any combination of characters within the PET keyboard may be typed in as a litera! and thig includes all 
| 
| 


cursor movement and the reverse field. PET has a special mode in the screen editor which assumes that 
is typed until the time that a closing quotation mark is entered, all characters are transferred directly tg 
the screen in a format so that the software which transfers the input line to BASIG will transfer therm as 
contro! characters if that is appropriate. at : ‘ 


You can see the cursor movement characters flagged with reverse field within a literal, Type a single 
quote and see this happen. Reverse field looks like an “R". Home is an “S" and clear ig a shifted “§" gf 
heart. Cursor down is a "Q" and cursor up is the shifted “Q” or hole character. Cursor right ig a right 
bracket and cursor left is the shift of that character and looks like a vertical line through the Sth colump~ ef 
dots. Insert is a shifted “T” which looks like a second vertical line. : 


You cannot enter a character in reverse field into a literal but you can turn on reverse field with the cantra} 
character before your character is printed. The only characters that are allowed to appear in reverse field 
between quotes are those which are interpretted as control characters. 


| Delete is the only editing character that will still work within a literal. Once an odd number of quotes has. 
i been typed on a line, you lose the ability to move the cursor about the screen until either a closing quate 
| or a Carriage return is typed. 
} 
i 
| 


You should note at least one time while you are editing that you have fallen into the aforementioned traa 


of trying to move the cursor after a quote has been typed. Either type a phoney closing quote or a earfiage 
return, then cursor up to edit your mistake. 


Another method of inserting cursor control characters into already existing text is to use the ingert— 
function. It has the same effect as an opening quote. For example, if you type insert three times and then 
try to do a cursor movement, the control characters will be flagged with reverse field just as before. Fhig 
mode is easy to get out of because you need only enter as many new characters as the number of times 
you struck the insert function. It is suggested that you make up your own examples to play with this. 
Examples may also be suggested to you as you make a few editing mistakes. . 


.. The ability to readily manipulate the graphics and the cursor movement characters can allow whateyer 
depth of graphical capability you have the time and patience to program. The computer should be fun. We 


recommend that you develop your own programming skills with the text and contionually experiment 
with the use of imbedded graphics and cursor movement characters. Remember that you cannot hurt the 
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machine - the worst that can happen is that you clear the screen accidently after typing In a bunch of* 
stuff. 


REVERSE FIELD : : : a a pe 
We have shown in the examples of aisle mode and insert how once a mode has been established fora 


line, the PET will continue with that function until it Is either cancelled by a new control character or a 
carriage return. Reverse field works in the same way. K remains in pttect until a reverse field off character 
is typed or a carriage return is entered. : ae ae 


As described in a previous section on screen memory, reverse field characters are stored with a special! 


bit on to Indicate the black spots in the characters coming from ROM will be all white and all the white 
spots will be black. As you will see when you type an example, this gives a very desirable highlighting 
effect and doubles the number of potential characters which the PET can display. This feature is so 
useful that it is not only implemenieg on me PET plsbley but Ins some of the PET hard copy printers: 
as well. a 


Here is an example of how reverse field works: Clear the screen and type HI ‘pacar.t Next hit reverse 
tieldonandtype THERE  .Finally type reverse field off, (shifted reverse field on), type (space), PET. 
This gives us a line in which we have highlighted THERE. 


Reverse field remains on from the first time the control character is typed and all characters 
subsequently typed on the screen will be printed in reverse field until! the mode is terminated as we 
previously mentioned. This applies equally to keyboard input as weli as characters printed from a literal 
string. 


To get the PET to type out in reverse field we use a litera! with the control character for reverse-field-on 
inserted. TYPE ?"HI (reverse field on) THERE (reverse field off) PET”. Note that the reverse field on and off 
characters occupy a space on the screen when programming and that they appear in reverse field, but the 
THERE is not in reverse field yet. The effect of the quote is to postpone the action of a control character 
until the literal is interpreted. Since the reverse field is turned on by setting a bit of each character in 
screen memory, a screen position is not required for reverse field on or off when the stream of characters 
is received by the program which prints it on the screen. Reverse field remains on until a reverse field off 
character or a carriage return is typed. . : tg 


TERMS AND OPERATORS gs CEES Ye eid nae Cina Ser 
The communication with BASIC is either with numbers or with ic aipniandranetharals: Aimbere a are alway 


presented in decimal form even though the microprocessor in the PET operates in binary mode. In order 
to keep the two straight, PET will assume that whenever we are talking about a number, we are 
tepresenting it in decimal form. Later when we talk about hexadecimal numbers, they will ha be 
preceded by a $--e.g. $00 10 is equal to 16. 


As BASIC recieves lines, the interpreter divides the characters it sees into several classes. Such as 
commands, functions and operators. PRINT is a command to BASIC with a specific function that PET can 
perform. 


A function can be something like square root or a variable, or a special function. Whenever you type fon 
the keyboard, you get a constant of 3.14159265, which can be used in an expression. 

An operator is a character that is interpreted by BASIC as an arithmetic function which is to be performed 
in evaluating an expression. The following set of operators are detined for BASIC: 


Plus sign (+) causes two values to be added together using floating point representation with the results 
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" Addition 


"Use of Parenthesis 


being calculated in a floating point accumulator. The accuracy is limited to 9 significant digits. Minus 
subtracts the value to the sight of the minus from the value to the left of the minus sign. 


is the BASIC multiply. The value to the right of the multiply is multiplied by the value to the left. 


I is BASIC’s divide. All thenumbers to the right of the slash are divided into the expression to the left of 
the slash. 


t means exponentiation. All the values to the left of t are ralsed to power of the value on the right. 


Open and close parentheses cause vatues inside them to be single expressions. All expressions inside 
parentheses are evaluated as a single value. Parentheses may be nested and are evaluated outward, 
Starting from the innermost set of parentheses. In order of Precedence, the memory aid “My Dear Aunt 
Saliy” will help you remember the precedence of Operators Multiplication first, then Division, Addition, 
Subtraction. Expressions within parentheses are evaluated first starting from the innermost set of . 
parentheses. The following set of examples should be tried on your PET to show the operation of the 
operators and their precedence, 
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Subtraction 
24-2 
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Multiplication | ~’ ~ 
26°2 
Division i . 


2448/2 
2 (4+ 8)/2 


Order of Operations © = Tw bee, ; MRE WA itso Sle Me 
2(2+4°(8-4)2°3 aetna, op, | Dia pinta sbi ad cien og ites Ase 





FUNCTIONS ” eee : 

There are three functions vhich are available in BASIC which are, at the time of writing, unique to the 
PET. The first of these is TT: Whenever this character is used in an expression, BASIC translates it from the 
keyboard character ofTT to the value of 3.14159265 etc. It can be used anywhere in any snbieeslen and will 
always be evaluated as this number. Example: 717. 


TIS and the value TI are two ways to communicate ‘with the real time clock within BASIC. As previously 
indicated, every time a screen refresh occurs, (1/60th of a second), a value within the PET is updated. This 
value is measured as a 24-hour real-time clock. It is available to the programmer in its binary form by the 
expression Tl, which gives the value the current number that BASIC is keeping. This number is kept as a 
three byte binary number whose value is stated in numbers of 60ths of a second, or so called jiffies. To 
evaluate the amount of time that a particular operation has taken, TI can be stored in a variable at the 
beginning of the sequence and then the difference calculated by subtracting that variable from the Ti at 
the end. This function is accurate to 1/60 of a second. 


TIS presents and accepts data in the form of hours, minutes,and seconds. When the expression TI$ is 
used, it always’ presents data in string form with two characters for hours, two characters for minutes, 
and two characters for seconds. The value of time in the computer is kept in a 24-hour clock. If it is ten 


a7; . 
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~ To convert the number to degrees use the following example: re 


minutes past 1 p.m. In the afternoon, TI$ would be printed as 131000. To set the value of the real time 
clock, type the expression TI$ = with the number being typed in quotes in 24-hour time. For example, to 
set the clock to 2:45 and 30 seconds in the afternoon, type TIS = “144530”. 


As a personal experience, you should set the value TI$ = to the right time now and after you have done 
some additional reading, go back and print it. As with ail the other variables, the power-on sequence to 
the computer zeros the real time clock. “ha Pan? DalO SES panes. 


Care must be taken In use of the value TI. Remember that the expression TI automatically goes back to 
zero at midnight. One of the authors wrote a loop in a program for graphics display where the program is 
waited until the variable Tl is greater than a constant and the value of Tl when the display is put on the 
screen. This expression never reached the computed value as TI goes through midnight. The only way to 
compensate for this is to watch for when the time might go through midnight, and readjust the stored 
value when it might. 


Functions are preprogrammed capabilities of BASIC which can be treated as a single value. Functions 
range anywhere from z, which is a predefined function, to sine, which is a capability of BASIC to 
compute the sine of a number. When BASIC encounters the code for function, it evaluates the expression 
for the function, calculates the resulting value, and.uses the value in the command. The use is really quite 
simple. If A equals sine of n radians, the expression would be written: 

A= SIN(n) 


in this statement, we are actually using two functions, n, and sine; BASIC would evaluate this expression 
by expanding the vatue of a, evaluating the function sine and firally storing the result in the variable 
space for A. In the expression: “s. . 
~- A=2*SIN(n) ; oh Boga 
after the sine is computed, it is multiplied by 2 and stored in A. 
The trigonometric functions, sine, cosine, tangent and arc tangent are all available in PET BASIC. The 
expressions for SIN, COS, TAN all have as their only argument an angle given in radians. To convert from 
degrees to radians, multiply the number of degrees by 7/180. For example: 
. 2SIN(90*n/180) 

calculates Sin of 90 degrees. To obtain the cosine of 45 degrees: 

PRINT COS (45°n/180) 





: bed 
To compute the tangent of 40 degrees. For example: tg SN Ot ee 
2TAN (40°n/180) 


Each of these functions are computed by tables. Because ris limited to 9 significant digits, in general, 
values should be less than 1000 degrees or 6n. 


The accuracy of BASIC functions is five parts in ten to the tenth as long as the argument is below 20 
radians. Expressions which use the values in radians are a function of the value of n which is accurate 
only to ten to the ninth. Arc tangent is the only inverse trigonometric function specified as a function in 
BASIC. The function arc tangent computes the vatue in radians of the expression given on the argument. 
Answers are always given between plus or minus 17. The accuracy is 5 parts in 10°°. In normal use the 
result is in radians. . a os Sorte ae, fh, Se at 

; 2ATN(5) : 


mahal 


2180/n* ATN(.5) eS ee ee 
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The following general expressions can be used to compute the value of arc sine and are cosine as a 
tunction of arc tangent. at 
ARC SIN (X)= ATNOUSQR( —X*X +1) 
ARC COS (X) = — ATNQUSQR( — X°X + 1) + 1.5708 


Both the above expressions give the results in radians to be converted to degrees by multiplying the total 


expression by 180/n. (It should be noted that In both the expressions there is a possibility of performing a 
division by zero which will result in a basic error. Before using the expression, the arc cosine should be 
checked for zero and before using the expression arc sine, X should be checked for it being equal to the 
value of one. 


MATHEMATICAL FUNCTIONS 
The largest legal number that BASIC can handle is 2t 70141183 E +38. Any larger number gives an 


?overflow error. The smallest magnitude that can be distinguished from 0 is 2.93873588 E ~ 39. Any 
smaller : 
number will result in an underflow. ° 
es ; RRS : 
Absolute value is specified in the form ABS(X). The function returns the value af the expression asa 
positive number. There is no inherent accuracy loss. For example: 

PRINT ABS(—- 145). 





INT 
This expression basically: ronnids the current value of the paranienee to the pext lowest imeger: 


For example: : 
~ INT(23)=0 ee Sy sae 


INT(- 2.5) = —3 
INTULISST cua akqaees Shee 


Other than the inherent inaccuracy of dropping significant digits, this expression introduces no 
additional inaccuracy. However, small inaccuracies in the argument could cause problems. For example, 
the number four might, in fact, be stored in BASIC as 3.99999999. When this number is used in the 
argument for an integer, the result is 3, not 4. ~ 

SGN , 

This expression returns a 1 if the sign of the number is eee than zero, a zero if the value is zero, anda 
-1 if the sign is negative. For example: : pes 


ISGN(— 45) 
-~1° 


1 
SQR ; : 
This function calculates the square root of any number greater than zero. ite a minus number i is used, the 
result is an ILLEGAL QUAN TIEY. ERROR. a neeureey of the expression is 5 parts in 10 to the tenth for the 


entire range. 
2SQR(16) ; 


The following two functions send themselves with natural algorithms. The algorithms are base E which 
is 2.71828183. 


EXPONENT 
The parameter defines the power to which the base Eis raised. The Limit of the parameter i is 88.02969189. 
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, Anumber greater than that will result in an overflow. A form of the expression is EXP(X). Although the PET 


¥ only allows the flow function for E, other functions are available by ratloing to the Log: 
- a a 8 PEXP(1) 


Basic logrithmic function is given with the parameter LOG(X) which is fogged to base E. 
To calculate the LOG to base 10, the expression is written: 








a . Ne LOG(XYLOG(10) fhe eas citar 
7 RANDOM i i 
The random functions are useful for many statistical programs and games. Three basic random functions are 
ie provided, The random Number generator uses an algorithm which develops a value between zero and one. The 


noiet The RND of a minus number is not truly random at all. The parameter is passed as a seed to the random 
number generation sequence. This technique can be used in debugging programs in a sense that a 
predictable repeatable sequence can be obtained by RND minus for program development. As previously 
discussed, it is also the way in which the RND of zero can be passed as the parameter to the random 
number generator. : 3 - 


im ) Another technique is to take the RND of time which is also a random number, although for gaming 
4 Purposes, it is not as desirable as the use of RND zero, 


Suppose in a game program you want to simulate rolling a six-headed die. Initially, you can seed the 
“aa > gandom number generator with the instruction : 
D=RND(-TI) Goh ea ene table 
Subsequently, you can compute the value of the die with’ 
D=INT(6*RND(1) + 1) 


—_ PEEK, POKE: 
PEEK is a function which allows the user to look at any location in the PET memory. The parameter 


contains the memory address in decimal in the PET which to want to look at the result is a decimal 

number between 0 and 255. BASIC is currently constructed so that the contents of any address greater 

ae) than hexadecimal C000 is automatically returned as zero. This is a legal constraint, posed by the 
company who wrote the BASIC software to Protect their copyright. 


Example: To look at memory location 25, the expression is writter: 
2PEEK(25) ge EEE : 

= POKE 
POKE is not a function but is written like a command. It allows the user to deposit a number into W/O or 
read/write memory. The parameters are Specified in a list after the command. The first Parameter is the 
memory address of where to put the information. It may range from 0 to 65536. The second parameter is 
of the actual value to be deposited. It must be between 0 and 255. For exampte, if we wanted to put the 

Character A at the first location of the screen memory we would write 


oy POKE 32768,1 


Some locations in memory cannot be changed (ROM) and others should nat be changed (BASIC and 
System variable RAM or WO). If you POKE the latter, be Prepared to reset your machine. 


te 
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USR 
The USR is a ington which is designed to pass a parameter to a language program using the jump 


address located at memory location one and two in the PET. See the section on machine language 
programming for a detailed description and use of this function. 
FRE / 
This function tells you how many bytes are left in memory. Although it is a true function since it can be 
used in an expression, it is normatly used in direct mode in the form: 

2FRE(O) . 
FRE forces a BASIC action called garbage collection, This consolidates ah unused bytes into one large 
block so that they can be efficiently allocated. 


Several functions exist to aid in formatting data when it is printed on rite: screen or nardvouy printer. 


TAB 


This format function places the c cursor at the column specified in the argument. The argument goes 
through the INT routine. The legal range is 0<X< 255. If the cursor is past the location specified, the tab is 
ignored. Note: TAB uses skip characters, not spaces. . see 3 , 


~ POS 


This function returns the position of the cursor. The position is reset to zero at each carriage return. 
Note: HOME and CLEAR do not affect POS even though the cursor is set to the first column. 

SPC 

This format function prints out the number of skips specified in the argurr ent (which goes through INT). 
Legal range is 0<X<255, Note: SPC(O) put 256 skips. 


NOTES — 
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Use of decision logic in writing programs. 


A major advance in BASIC programming is the ability to loop back and re-execute lines of a program. It 
may be done in two ways ~ unconditionally with a GOTO and conditionally with an IF-THEN. 

GOTO is written to specify a target line number where execution will always branch. GOTO may also be 
written with a space between GO and TO. PET BASIC will recognize both forms. 


GO TO 50 : 
GOTO 100 - 


AGIOS SS ate Shah te ete 
IF-THEN has three forms: 


“sf. 0 <1" “0 4F (condition) THEN (statement) 
IF (condition) GOTO (line number) 
IF (condition) THEN (line number) te ree rere 





are rae Spe ane grt 





Conditions are written as two arithmetic expressions separated by a tslational operator. PET ARC: 
provides six relational operators: <, >, =,<>,<=,>=. : 


Until now we have been developing programs which do single functions in serial order. You should be 
familiar with the concept that says that first line 10 is executed, then line 20, and other line numbers in 
ascending order. 


If we wanted to take and print aumbare betwenn 1 and 20, their square and square root values on the 
screen, we could write the linear program as before: 


10 PRINT 1,1,1 “os 


20 PRINT 2,2°2, SQR(2) 7 gi$ 
30 PRINT 3,3°3, SQR(3) BISA BME LP Sg ae as 


“The big disadvantage of this is that we would have to keep typing in lines until the 20th line. 
200 PRINT 20,20°20, SQR(20) : 
‘UNCONDITIONAL LOOPING : 
However, with our concepts of variables and the addition of a loop, we can write a program that 
computes values and prints them out without nee to type such a tong program. , 
‘The program reads as follows: 
10 PRINT “VALUE”,“SQUARE”, SQUARE ROOT” 


_ Line 10 prints a heading for the column of numbers. It is executed only once. Se ee 
—_ 201=141 rer ere rrean 
Line 20 computes the next number to use. The first time this line is executed, i fas 


- never been referenced so it has an initial value of 0. 
30 PRINT 1,5°1, SQR (1) 





Line 30 is like lines 10-200 of the previous program except that the constants have been replaced by a 
variable. 
eth Ph gated .. 49 GOTO 20 Palate a ae 


Line 40 contains a GOTO command which directs execution back to start again at line 20. 

BASIC stores text lines so that a pointer to the next line precedes each line. Using this technique, the 
Interpreter can quickly examine only the line numbers, determine If a tine does exist, and transfer 
execution to that fine. 


GOTO is not limited to branching to a lesser line number but it can branch to a greater number too. You 
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will see a future example of the concept of using GOTO to skip a portion of cade. 

As before, we type RUN to start our program. The prograin will continue to print values of | until the STOP 
key is pressed. Rapid scrolling of the screen memory makes the screen almost impossible to read, but 
use of the reverse key slows the scrolling rate. Holding down the reverse key slows the scrolling by a 
factor of 20. : 


To stop the loop, press the STOP key. When you want to restart a program either type CONT to cause the 
program to resume where it left off or RUN to begin at the beginning. 


While this program makes use of the GOTO, it does not really help us to solve the problem we tried to 
address ~ printing just 20 numbers on the screen. However, before we address that, let us introduce a 
small mistake into the program. You should see a common error and its cure. If we retype: 

40 GOTO 10 
and then execute, instead of printing a heading at the top of our program. We will intersperse the heading 
with the computed value. Jumping to the wrong place in the program is the most common error made in 
programming. Luckily it is most visible in this case. By stopping the program we can use the screen. 
editor to correct line 40 to go to line 20. You have now fixed the first'in a long life of program bugs. 


ae ae 


CONDITIONAL LOOPING 
The IF-THEN statement allows you to specify a case to test and if the case is true, the statement after the 
THEN is executed. A test is specified by putting one of six relational operators between two expressions. 
= equal H 
<> not equal 
> greater than : 
< less than ¢ ened 
>= greater than or equal to pees 
= less than or equal to 
If A<B then print “A LESS THAN B” 


lf the expression is true, the instructions.on the same tine with the IF statement are executed. If the 
expression is false, the program jumps to the next numbered line. If you are in doubt about < and > and 
what they mean, remember that the arrow points to the value you would like to see less than the other. 
In ourexample, we can add the statement: 

40 IF 1<=20 THEN GOTO 20 








The IF-THEN lets us make a variety of decisions at the time we are executing the program. This allows us 
to limit the program and cause actions to happen. In this case, we execute the program from 1 to 20 and 
then finally drop through the instruction. 


We can also write the IF statement to skip around the unconditional GOTO. Add two new lines and 


restore tine 40: ty fess 
35. 1F f= 20 GOTO. 50 
PEt ie Ke O5 GRD Beate 40 GOTO 20 
; 50 END 





The program will execute through 20 values and when lis equal to 20, go to the END statement. 

Most BASIC interpreters required you to include an ENO statement to finish your program. This is a 
vestige of when BASIC operated non- interactively from cards. END can be used eotaneily in PET BASIC 
to force program execution to end at a specific point. pr : : : 


IF-THEN instructions have three forms: The first is IF expression GOTO line number. The second is 
IF-THEN line number where GOTO is implied. The third form is IF expression THEN followed bya - 
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ways to get information into variables, 


~String data can be typed without quotes if it does not contain literals 


statement to be executed before Proceeding to the next line. Expressions in this form might chan 
table to draw a line between the 10th and 11th value on the screen. 


32 IF 1= 10 THEN PRINT “ 7 Tobe ne an 


ge. our 


If we try to execute this, you will see that a line is now drawn between the tenth and eleventh vaiue on the 
screen because of the statement at line 32. It should be noted that the fogical conditions ct the IF and 
IF-THEN are only two; either the next line is executed, or the THEN Statement is executed. Take care 
when placing additional Programming statements on the line. For example, in: : 
he Pe IF X=5 THEN 50:7=A & z i 
the Z would not be executed, because the line either drops through or executes statement 
50. However, in } es a ‘ : Roe Sipe | 





IF X=5 THEN PRINT X:Z=A seine SER EE 
the PRINT X and Z=A will be executed if X=5, 


The IF-THEN lets us make a variety of decisions at the time we are executing the program. This allows us 
to limit the Program and cause actions to happen at various points. It is the concept of the unconditional 
jump plus the concept of testing values that allows the computer to be used as both contro! element and 
legitimate computing element. The intelligent combination Of logical decisions with repetitive operations 
makes a program really work, 7 : ae ‘ eA 


DATA ENTRY Ages sie Pee Pee is % 





READ AND DATA STATEMENTS 


Only a short time ago when there were no timeshare systems, BASIC could not accept input other than 
cards included with the program. Thus, DATA statements were typed and scattered throughout the 
program. The command READ was designed to pull out this DATA into variables which could be used by 
the program. nee PLR Sapo aes er. 2 SO Aalign Es oa co 
When BASIC began tunning in an interactive environment through timeshare, verbs such as INPUT and 
GET allowed direct communication with the BASIC program. READ has been relegated to inputting 
parameters that change but not as often -- e.g. tables, etc. BREST Wie hs, “LAN ed 
The syntax of READ is the verb followed by a list of variables into which the DATA is to be read. 
READ A, B,C, D : 


READ processes DATA Statements as they are encountered in the program. DATA Statements at line 10 
and 30 might be processed by a READ statement at line 20. DATA is processed sequentially and commas 
and end of lines are considered terminators ' : . : , 
10 DATA 2, -53, JE10 pee Sfeety Loge 
. 20 READ A,B 
30 DATA 3.14, 1,06E23 


Blanks and graphic characters are automatically thrown away unless they are surrounded by quotes. The 
cuotes are considered to be delimiters for literal characters. 


50 DATA ABC, DEF 


ar rar ASP Ee A ENED te VERY RA OVERSEE HO HT 


_ Commas within quotes will not be treated ey BASIC as field terminators. 


60 DATA “,";,";," 
It is also possible to type mixed aisnanumene and data fields. Numeric fields may be treated as alpha. 
10 DATA 123, ABC, 345 
20 READ A, AS, B 


It is advisable for the programmer to know how many data statements he has put into the machine or 

use some kind of a delimeter at the end of the data. If it is not done, the data is continuously read, and the 

program will index its way through all of the data statements. Finally, DATA will be exhausted and when 
the next READ is encountered an 20UT OF DATA ERROR 

will occur. Sometimes you may also see this error if you carriage return through READY on the screen 

because the PET thinks you already told it to READ Y. 


SYNTAX error results when an attempt to read alpha field into a numeric variable is made. 


READ and DATA are Implemented In the following manner: The first byte of text contains a zero. This is 


really not part of the first line but is a dummy line consisting only of a terminator. When RUN Is typed, a 
data statement pointer is directed to this byte. Since it is pointing to a terminator, the first READ 
command initiates a search for a DATA statement token. 


There is one other. command available to the programmer which allows him to reuse the stored data. 
RESTORE restart the DATA search back to the beginning of memory. 


The following program would correctly operate continuously re-reading DATA; 


10 DATA 10, 20, 30, 40, 50, 60, 70 

201=1 , . 

30 READ A: PRINT A 

40l=I+1 . : Q 

50 IF 1X8 THEN 30 : rat ae ae ci SOCAN REN 
60 RESTORE OED er et, oe og pa odd, enn 

70 GO TO 20 


INPUT . 
When interactive response to DATA requirements became possible, the concept of INPUT from the 


keyboard was introduced. Since the classical! input device to BASIC was a TTY, the format of input 


“statements was limited by this device. 


Operation of INPUT is considerably enhanced when coupled with the powerful PET screen editor. 
The form of the statement is the verb INPUT followed by a variable list. INPUT satisfies the variables is, 


sequence. : 
INPUT A, B, C 


When BASIC encounters this insfruction, it prints a question mark to the screen then activates the screen 
editor, blinking the cursor for input. Because you are under control of the screen editor, cursor movement 
characters are allowed up until the carriage return is issued as a terminator. ‘ 


After carriage return is received, data is handed back to BASIC one character at a time. Data is then 
interpreted by BASIC using its input buffer and rules of interpretation. 


_ Leading blanks are supressed, so if you are inputting a string which requires blanks or literals, it is 


necessary to enclose the input characters within quotes. 


The editor picks up only the characters between the question mark and the current position of the cursor. 


This allows input of data fron a pre-constructed form on the screen. : PUNE 


INPUT data may be delimited! by commas as with the DATA statement. When more fields are provided 
than are actually required, BASIC responds with 
QEXTRA IGNORED 
and takes only those characters it requires to satisfy the INPUT fist. 
On the other hand, when not enough data is inputted, BASIC will respond with : 
i 2 TR ME Hates atc © 
and begin blinking the cursor agaln to get additional Input. 


It an alphabetic field is encountered during the interpretation of a numeric field, BASIC responds with a: 
?REDO FROM START . 
In PET, if input is followed by only a carriage return with no other typing, it is considered by BASIC to bea 


- termination of the program, same as a stop key. This particular feature is a carryover from the days of 


teletype BASIC when this was the most convenient way of terminating a program. 
The stop key is not operative while the PET waits for input. - ees wer SERPS Caseig ky 


INPUT has a special feature which allows you to Indicate to the user what input characters are desired 
and in what form they are to be. A literal which follows the input command is printed prior to the time the 
carriage return is typed. For example: : 
; 10 INPUT “BIRTHDAY”; A 
it would print: 
BIRTHDAY? 

and wait for you to input your birthday in standard numeric form to value A. Here is an example of INPUT 
to calculate the third leg of a right triangle: oes 

10 INPUT "FIRST LEG"; A 

20 INPUT “SECOND LEG";B 

30 1F A=0 OR B=0 THEN 10 

* 40? “THIRD IS"; SQR (A*A + B“B) ttt b mamesemermals se wna ems ene cee amo ne 
50 GOTO 10 


if you run this program and put in values 3 and 4 respectively, you will get a 5. 


"We can change our program to se how to combine values on a single line. We delete line 20, list line 10, 


and change it to: 
10 INPUT “FIRST LEG, SECOND LEG"; A, B - 


This change, when you execute it, will accept values typed as 3, 4. You will see that either form is 
acceptable, however, good programming practice protects the user from getting confused as to how 
many fields go on a particular line. although itis definitely not good programming practice, it is possible 
to mix alpha and numeric values. 


10 INPUT "NAME, BIRTHDAY"; AS, A re 
GET 
A major problem with INPUT is that it does not allow real-time programming. All processing comes to a 
grinding halt while-the user takes his time to enter some characters and strike RETURN. PET BASIC has 
been equipped with a special function which will yield one character at atime from the keyboard or tell 
if a key has been pressed. 


The command is GET. GET is identical in syntax to INPUT. It is possible to specify a list of variables but 
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generally this is not a good idea because the purpose of GET is to scan the keyboard and return with a 

single key closure. When a numeric value is specified 

GETA : : 

only numeric keys will be accepted as input. All others will cause the message: ra 
; ISYNTAX ERROR 


SORRY. se ante, 





Use of the numeric value is confusing because if no key has been struck, the value returned is zero. 
Otherwise it will have a value 1-9 for keys 1-9, . Z : 


The most desireable way to use GET is with a string variable. If a key has not been pressed, the string 
will have a null value (length = 0); otherwise the string will contain the character corresponding to the key 
that was pressed. See the next section for a detailed explanation of how strings work. 


GET calls a routine which examines the keyboard interrupt buffer. If the buffer is empty, the variable 
contains a value of null or zero. if there are characters, the first is taken out of the queue and returned. 
Since the length of queue is 10 characters, calling GET 10 times in a loop is a good way to insure that the 
queue Is empty when waiting for a response. This is particularly useful in interactive games. 
The following routine will wait for a key to be pressed and exit.only with the value of a key closure: 
rts) Meetaeaes is, Uae Bie. phone eee oes | 10 GET AS ee pie et Shoat Sota ts 

: 20 IF AS=""THEN 10 - eee ee pte 
In this case, "is a iiteral which contains no characters and is a null string. 








TuGe er apyt ame abate! faut. then. NOTES. fr oh 
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Chapter 6. 5 ADVANCED PROGRAMMING TECHNIQUES 


We have been describing numeric functions primarily, but almost any useful program also has to deal 
with alphanumeric data. BASIC has a set of functions to deal with these data. Also, all alphanumeric data 
may be expressed as a continuous connection of characters which is viewed by BASIC as the value of a 
single variable. : : 


PET BASIC, has a $ notation which is used to express variables which are strings of alphanumeric data. 
All of the rules which apply to normal variables apply to the string variable. 


Following the naming conventions, we can create a varlable AS not equal to A% and not equal to A. 
Type AS = "NOW IS THE TIME” and PRINT AS to show the value of the string. This technique can definea 
String of a length up to about 70 characters, depending on the number of characters of the line number ~_ 
ail that can be entered on a line. However, the limitation on the number of characters that can-be stored 
in a string is 255. You can build strings larger than can be entered. The accumulation of characters from 
an 1/0 device and the construction of data is accomplished by the concatenation of strings. The operator 
that is usedis +. 


We can modify the expression A$ which we have been developing by typing A$ = AS.+." FOR ALL”. Print 
A$ and you can see that the literal we typed in had a space at the beginning. Unlike numbers which are 
formatted by BASIC, the value of the literal is taken literally. A string can contain all combinations of bits 
Including those that form control characters such as cursor down, and carriage return. This will be 


Ilustrated soon. 


BASIC allows string expressions up to 255 characters long. These can be output to the screen or to any 
output device which accepts more than 79 characters. Input, however, is usually restricted to 79 
characters because of the size of the input buffer. This problem can be handled by breaking strings into 
substrings before they are input or by using GET to input each character individually. The substrings or 
individual characters can then be recombined into the original string by concatenation. 


COMPARISON OF STRINGS : 
The ASCil table is defined in Figure 2.6. It contains the order in which characters within the PET are 


represented when two strings are compared. Characters within a set of Strings are compared starting at 
the leftmost character to the end of the field specified. 


Using the ASCH table, we can compare a string containing an “A” to'one containing a “B” in the same 
position. The result is that the second string is greater than the first. 


A string containing a blank is less than a "1", which is less than an “A", which is less than a “B". The 
String “A” is less than the string “ABC” or any string containing “A” as the first character. All characters 
are compared in sequence with the first unequal character defining the relationship between the strings. 
Thus the same retational functions may be used for both strings and numbers. 

< > for unequal 

= for equal 


< for less than 
> for greater than 


Immediately the string comparison feature can be applied to help you construct ordered lists such as a 


_ ‘heck file or a telephone directory. Comparisons can also be used to search ordered lists such asa file or 
a telephone directory. 
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Try the following Program to develop a feeling for Sequences and matching functions: 


10 INPUT AS a8 : } sony a haw 
20 INPUT BS “4 

30 IF AS = BS THEN ? “AS = BS'SGOTO 10 

40 IF AS <8 THEN ? “AS <BS":GOTO 10 

50 PRINT “A$ >BS": GOTO 10 


NUMBERS AND ASCII CODES 
Two complementary pairs of Qperetigns on strings and numbers allow us to put 


unconventional things 
into character strings. 


singe #e ; : ; fe oie lesa 
STR$ is a function of one argunnest: Is yeturns a string that is the character representation of the - 
numeric expression: e 


WR SO. a ane tame Me emia GMI anche gp YW 
20 9STRS OGY SUETEIES HET ar eee het oat UG Mine ct et aces: 
RUN 24 ; he ‘ ‘ Liha. 
3.1 re as errr eae aie - ie 
READY - : 





Positive numbers are preceded bya Dian] in the tas equivalent. Negative numbers have a sign in the 
corresponding position, 0°"! eb ete oe, 


VAL 
~ VAL is the complement of STR$. It converts a string to a number which may be used for computations. If 
the first ae i 
non-blank character of the string is not numeric, we: ihe value of the function is zero. 
PVAL("Z")~ we ; 
0 


PI Ge . ages = 





AP EE PENS Do ste ey 
READY 
On the other hand, VAL will convert as many digits as it can up to an invalid character. 
PREGA AE Sho isi UN cha Geta 1 Meee an Be” vp Sey ad ue 
3.14 sy fn. : me CBS G begs 


VAL is an Snellen function to use with INPUT since it can prevent an inexperienced u user from causing a 


REDO gion Shan. 
CHRS \ 


The eerie 


’ We have shown that strings may be assigned printable ASCI! characters through either literals or direct 


INPUT, but some devices require control characters which cannot be produced by normal means. For 
example, a PET printer uses shifted carriage return as a special terminator to indicate a carriage return 
with no line feed when it performs overprinting. CHR$ allows you to specify such control characters by 
giving the ASCil code number. CHRS$ is a function to convert a number into internal ASCH 
representation. The value of the argument must be 0<=X< = 255. P det a . 

10 A$ = CHRS$(65) + CHRS(66) ; ae 

20 PRINT AX ae int 

RUN 

AB 

READY. - ~ . 


In the above examples, 65is the ASCII code for “A” and 66isa"B ow. -anverted the codes to characters 
before concatenating them and printing them out. 


39 


e a ne ee 
a sco ead at eaten A pemaparentint tie ot erent ye 
wee oe ee gente Tat TT gee TET ene ee RSET tee * zi 


ee me 


’ 
( 


i 


aot ay ty fb ecw? 


ee 


qL 


Hl 


7 


ASC 
ASC turns a character Into an ASCII code number which may be used in numerical calculations, The 
paramoter is a String. . ; ; . 

FASCIMA") tee : De Me NB ae ' 


If the string consists of multiple characters, then this function will return the code for the first character 
ofthe string, - : aoa : 
9ASC('123") : 
49 





* The ASCII code for "1" is 49. a ai 

.. SEGMENT OF STRINGS : : : pe REPT Ge ape oS ze 
In Many Cases it is desirable to access Just part of a String in developing an ordered list. Consider the 
problem where in response to an INPUT, a person's name is typed in. It might consist of their first name, 
middle intitial, and last narne. It is important that for sorting, however, that not all Johns be together, but 


that the list be ordered by last name. 


In order to be able to separate parts of strings and use them in expressions, PET BASIC provides three 
functions. Most of your programming with strings will consist of using one of these three functions to 
analyze pieces of a constructed string. We will present the use of the functions and define all three at 
once as they are essentially the same function. Three combinations are provided mainly for programming 
Convenience. : wn Pe oy Sa See ey 


LEFTS, RIGHTS, and MIDS Bees Si a sa 
The function specified as LEFTS(string variable, 1) gives the Jeftmost “t" characters of the string 
specified. if} : Bese ie) Dea 

Is negative, or zero, or greater than 255, then an ILLEGAL QUANTITY ERROR is printed. RIGHTS(STRING 
VARIABLE, I) gives the rightmost “|” characters of the string expression. When"I” is less than zero, or greater 
than 255, an ILLEGAL QUANTITY ERROR is printed, , 


There are two expressions for MIDS. The first most genesal one is MIDS(STRING VARIABLE, I, J). This 
expression gives “J” characters from the string starting with the “Ith character. If “I"is greater than the 
length of the string, then this will give a null string. If either “I” or “J” negative, or greater than 255, an 
ILLEGAL QUANTITY ERROR is printed, For “J” greater than the number of characters left in the String, all 
the characters from "I" to the end of the String are returned. bs - 


The second expression is MIDS(STRING VARIABLE, I) which is the same as specifying a “J” greater than 
the length of the string. All the characters Starting in the “I” position untif the end of the String are 
returned. If "I" Is greater than the length of the string, then a null string is returned and if “I” is negative, 
Or greater than 255, and ILLEGAL QUANTITY ERROR is printed. . 


All of these variables combined will define a new function which allows us to take either the left number 
of characters, right number of characters, or a given number of characters starting at a given position of 
the String. ME og : 


To find the last name from our Previous example, we can analyze characters Starting from the rightmost 
character of the string until the first blank is encountered. To implement this program we need one more 
function. : : Ao 


~ LENGTH OF A STRING ot 


=} The LEN function gives an exact count of the number of characters contained in a string. Non-printing 
rH ; 
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characters and blanks are all counted as part of length. 


Strings are stored in BASIC with a 3-byte vector. Two bytes are a pointer to the location In memory where 
the string Is stored and the third byte is the length, the LEN function extracts this byte. 


We can now write a general purpose program to extract the last name from a full name. 
10 INPUT“NAME:FIRST, Mi, LAST",AS ‘ : i 


20 | = LEN(AS) h 
30 IF MIDS(AS,I,1) =“ "THEN 60 : 
40h=1-4 





50 IF >0 GOTO 30 
60 PRINT “LAST NAME = ": MIDS(AS, I+ 1) 


dew * ae. 
Two variants of MIDS are used here. Line 30 uses the case where a length is specified as the first 
parameter. We are using a length of 1 to search for the blank delimiting the last name. Line 60 does not 


specify a length in the MIDS. Everything beyond the Position of the blank is taken. ‘ 
STRING STORAGE - ‘i _ a oo 
Strings are stored in the space between the end of your BASIC program and the highest RAM locations. 
As each new string is added, a chain grows downward from the top of memory. Do 
Storage Is optimized by never creating a copy of a string assigned to a literal. In this case the vector for 
the string points to where the literal occurs In text in memory. Likewise, if an expression AS=BS Is 
executed, both AS and BS will share the same copy of the string. New string Is required onlv If a 
concatenation or INPUT is executed. .” Lace 


A LARGER EXAMPLE OF STRING FUNCTIONS pd Sie 

Using the string functions described thus far we can write a routine which will shuffle a deck of cards for 

us and deal them out one at a time. The following routine has applications in many games like poker or 

bridge. Note use of the PET graphics card symbols: : : : 

wt 285 PRINT "@" CREM SET UF DECK WITH ALL SZ CARDS ee = 

18 C3="Kezezes POSOT OS 3a TOT anak on Singh e Seta Ste yet 
128 Chelae Awe SUSOS VS OTOL ESHT OF BOK EN 

PSMA IS OT HS HI OT OI ONEK EO" Panties 


~ me eee 
POPSET MS 50 Ted ek ae 
n 


taodyt 











EM FULL OA 
WTC 








’ READY. oe: : oa : : te 
The string C$ is initialized to contain a deck of cards. Two characters represent each card; the suit and 
rank. As a card is dealt, NS contains the rank and Y$ contains the suit. The deck string, C$, shrinks each 
time so that unique cards are always dealt. . 


‘Statement 105 clears the screen. This is done just for show so that the Program can iNustrate the deating 


of cards. C$ is initialized in statements 110 through 140. C$ is concatenated because the literal 


assignment is too large to fit on one line. é . 
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6 
Statement 200 uses RND to ¢ enerate an indéx i into C$. The random index is in the range 4 to LEN(C$) - 1. 
tn 201 the index is used ins pull: NS(rank)YS(suit) from C$ by ewes function. 


432 through 435 removes the card from the string so that it will not be dealt again, Since the second” . 


argument of, LEFTS cannot be zero, the Ro test in 432 prevents an ILLEGAE QUANTITY ERROR. 


a 
440 prints each card for our program as it is pulled. 450 tests for the end af the deck and 460 allows the 


user to reshuffle. Sete eas 
De ee Rann 





eh es 
USER DEFINABLE FUNCTIONS ‘ ee apa 

To this point we have covered ali the iunetions intrinsic to BASIC. Those familiar with mathematics are 
used to many more functions in that realm, especially trigonometric. While one could write code to 
approximate certain functions in line it becomes very tedious and from a documentation standpoint a 
simple expression might become unreadable. Raniunately ithe facility exists in PET BASIC to define 


A function is defined in a DEF statement: 
100 INPUT Bs, 
HOINPUTG a SpE ye le et 
120 DEF FN A(V)= =VIB+G 





\ 
The name of the function is “FN” followed by any legal variable name. Recall that a variable is either a 
letter or a letter followed by a letter or digit. : Lf . 
Thus the following are valid function names: i a 
FNX : 
FNJ7 
FNKO 
Ene 





The most severe limitation of user- -defined functions is that they: must be contained in their entirely on 


-ane line (80- -characters). String functions cannot be defined. 


The variable in parentheses following the variable name is called a dummy variable. A function may be 


defined to be any expression but it may have only one argument. Other variables used in the expression 


are considered to be global (have the same value as in the rest of the program), and their current values 
are used in the evaluation. 


After the funtion’ definition has been executed, a user defined function canbe used as in the following 

example: . 5 
130 Z = FNA(3) 
1407Z 





When the DEFFN statement is executed, a simple variable ent -is made in the variable table. The first 
character of the name has bit 7, the most significant bit, set to indicate it is a function name. Associated 
with the name are two pointers: an address of the text where the function is stored and an address of 
where the dummy variable is stored. The code to execute a function is re-entrant so that a function may 
be defined in terms of other DEF FN. An out of memory error will occur in time as the available stack 

space is consumed by recursion. : 


Figure 6.1 shows some user-defined functions which are ready to be used in PET BASIC programs. : 


¢ 
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2 Rn I ES RE EET CL ET ETL | OCD AIA A eC t eo * 
€ earn = Seeatnaeadiinaeneeramses ate 


5 SECANT, SEC(X). . 


DEF FNA(X) = 1/COS(X) 
FOR X < >nl2 


COSECANT, CSC(X) 
ee -s DEF FNB(X) = 1/SIN(X) 
Coke He i eS FOR X< >0 
wots \ a 
ee ‘ CONTANGENT, COT(X) ‘ 
DEF FNC(X) = COS(X)/SIN(X) 
& * Se 





FOR X< >0 





INVERSE SINE, ARCSIN(X) 
DEF FND(X) = ATN (X/SQR(—X°X 4 » 
FOR ABS(X) < 1 


ae INVERSE COSINE, ARCCOS(K) © fo 
DEF FNE(X) = SAIN THSGR( = _X* Xe Me 
FOR ABS(X) 


DEF FNF (X)= ATN (SQR(X*X —1)) + (SGN(X) ~ 1*nl2 


: ; FOR ABS(X) > 1 A é 
Re Ses INVERSE COSECANT, ARCCSCIX) a 


DEF FNG(X) = ATN (1/SQR(X*X — 1)) + (SGN(X)— 1)*nl2 
FOR RES > 1 


IC ais 34 









INVERSE COTANGENT, ARCCOT(X) 
DEF FNH(X) = ~ ATN(X) + 2 
FOR ANY, 


INVERSE SECANT, ARCSEC(X)/ 





HYPERBOLIC SINE, SINH(X) 
DEF FNI(X) = (EXP(X) — EXA( - X)/2 
FOR’ANY X 


HYPERBOLIC COSINE, COSH(X) uh 
DEF FNJ(X) = (EXP(X) + EXP( — X))/2 
FOR ANY X 


Poteet oly ep nae 


HYPERBOLIC TANGENT, TANH(X) 
DEF FNH(X) = ~ EXP( — XV(EXP(X) + EXP( 
- FOR ANY X * ee 





—X)yr24iy 





igre ay ae ie 





HYPERBOLIC SECANT, SECH(X) 

: i DEF FNL(X) = 2 EXP(X) + EXP(— X)) 
j FOR ANY X 

{ 

i 

\ 


ges 


HYPERISOLIC COSECANT, COSH(X) 
DE = FNM(X) = 2/EXP(X) — EXP( — X)) fy ae 
FORX<> 0 


i 






~ HYPERBOLIC COTANGENT, COTH(X) 
DEF FNN(X)=EXP(—X)/(EXP(X)+EXP(—X)) "241 
FOR X< > O° 


INVERSE HYPERBOLIC SINE, ARCSINH(X) 
,, DEF FNO(X)= LOG(X + SQR(X" X+1)) 
: FOR ANY x 





os _ INVERSE HYPERBOLIC COSINE, ARCCOSH(X) - 
He tath * DEF FNP(X) = LOG (X + SQR(X*X 1)) 
FOR X> =1 Pog dy 


: ‘ 
s 
a | 


tee 4 — \ “ se seed 
INVERSE HYPERBOLIC TANGENT, ARCTANH(X) 

DEF FNQ(X) = LOG((1 + X/(1 — X)V/2 ee ie hercd: 
FOR ABS(X) <1 re ae 





Lo 





: t 
: : 





INVERSE HYPERBOLIC SECANT, ARCSECH(X) Me te 5 
4b DEF FNA(X) = LOG((SQR( - X* X + 1) + 4X) eT Ee Neen BO 
ie: ORGS Ree \ feos 6 

INVERSE HYPERBOLIC COSECANT, ARCCOSH(X) 

DEF FNS(X) = LOG((SGN(X)*SQR(X*X + 1) + 1)/X) < * 
Yee eee ele he Se 
INVERSE HYPERBOLIC COTANGENT, ARCCOTH(X) —— Cay 

‘DEF FNT(X)=LOG((X+ 1)(X-1)2 0 \ i pb'ih, Meets Mote ahlers 
/ FOR ABS(X) > 1 ee _ 
\ : 2 ON 


ine Me teat ett 


as 
; 
3 


GOSUB-RETURN AEGON ea A 

We have seen how to use the DEF FN to create a single variable function which can be used like any 
intrinsic function. The major limitation of DEF FN is that it can consist of onty a single algebraic 
expression and it must fit on one line. 


2 \ boot 
Q 
a 
t 


Often several lines of code will be repeated through a program. These program lines can be collected in 
one place and executed by a GOSUB command: 
GOSUB 5000 


ex 


= The lines of code are called a subroutine. GOSUB means go to the subroutine. It differs from GOTO in 
aes that GOSUB remembers at which line number it was executing before the GOSUB and can return 
automatically to the following line after executing the subroutine code. 


A subroutine is stored as a series of lines in BASIC starting at the line number specified by the GOSUB. 
~ The last line of the subroutine must be a RETURN statement. This tells BASIC you want to resume 
~y executing the maintine code after the GOSUB. 
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RN RR EA ORNATE RRR Hee epg ne are 


ehenindse 


Sen cone ene Sint tee Let amas 


Example; fake SO ee i ce oF 
10 REM THIS IS THE MAINLINE CODE ‘ 
20 GOSUB 50 : 
-30 STOP 


50 REM THIS IS A SUBROUTINE 
60 RETURN 


If we could take a snapshot of execution, we would see the lines executed in this order 
10-20-50-60-30 -- 5. 


Five bytes are pushed onto the stack when a GOSUB Is executed: a GOSUB token, and two bytes each for 
the line number and text address of the GOSUB. The line number following the GOSUB is stuffed into the 
currently executing line number and the GOTO routine handles the branch. RETURN restores the line 
number and text address from the stack to resume maintine execution. All FO R entries in front of the 
GOSUB entry are also eliminated. 

The physical limitation on the nee of GOSUB's in effect at one Hime. is 23. Alter this many there ts very 
little stack space left. rs! re pte Ba iat 
Example of subroutines ae 
Consider the factorial function: 

nl=1x2x3x...xn bau s 
You cannot define this function with the DEF FN command. On the other hand, you can use the following 








simple routine to find n! for any given n (up to 34). (NF denotes n factorial) 
10 INPUT N : 
100 b= UNF =1 Bde yh. ARR RP eR) ee wets Ba eal g 
110 NF=NF*l 4,2 Pg Ve ec : 


120 l=14+1 abt eae go 
130 IF 1<=N GOTO 110 
140 PRINT NF 
The routine on fines 100-140 could be used many times ‘during a ‘program using different values for N. For 
example, suppose you want a binomial coefficient: 








The program would be iret een 
. 10 PRINT “M ="; INPUT M he WAL REG adi ces ctw aia 
15 PRINT “R ="; INPUT R erat ea with i 
20 N =M:GOSUB100:X = NF ‘ bobs 
30 N=R:GOSUB100:Y=NF . Sct 3 5 
40 N =M -R:GOSUB100:Z = NF : 2 
50 BC=X/(Y°Z) ‘ 7 
60 PRINT BC 2 
70 END a a 





100° ol=tiNF=d PESIE Me Soe Pass Sey ah gotat 
110 NF =NF*t "aS 
120 t=!44 











130 IF! <s N GOTO 110 TL ogttis Pia ee ee ee rae eoboiduaes 
140 RETURN ch SSE a ene tk phe a eat cee 
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J 


J 
J 


“” 
' 
1 
_e 


a 
; 


é 


TYPE RUN : 
for the values M=11 R=6. oa a Becget ee 
RESULT IS 462 - ‘ : cd 


Subroutines act like a “black box” or complex function within the program. Certain fixed variables are 


used to Input the data and other fixed variables (or sometimes the Same variable) are used to Output the 


results. For example, in the subroutine on lines 100-140, the variable N is input and the variable NF is 
output as shown: ; ; : Satna 


PN > SUB100 | —> NF 





> 
Pi 





NF=N! OER TES Sais 


When we make N equal to M, R, and M-R respectively, we get NF equal to M!, R! and (M-R)!, 
Of course, some subroutines do not need inputted variables as they might just perform a Specified 
function such as Printing a special form on the screen 


SUB > print form se ee i . cee 


“ 


NESTED SUBROUTINES ’ 
The subroutine on page 6-14 itself could be used as a subroutine in a program that repeatedly calculates 
the binomial coefficient. Merely change line 70 to ‘ ; 


70 RETURN 
The subroutine, denoted SUB 10, beginning on line 10 and ending on line 70 has the foliowing structure: 


M=> : a eh ee M : ates 
SUB10 | —> BC a ec () : 
R—> . sos 7 : Se Copa BAG RENG sist 


Ni ftwe . Sige pee See eS 


OMe writ Babel eb aucey boyd he eagde a 7 
sensi ae ott SUB100 ; oe MERE ute os deed pint 2 


Subroutines that are used by other subroutines are called nested subroutines. In this case, SUB100 is 
nested in SUB20. Many programs have subroutines nested in subroutines in nested subroutines...The 
only limit is the amount of memory available. 





Subroutines can also be nested in more than one subroutine. An input subroutine, for example, that 


Subroutines. 


_ SAUTIONS 


A common error in using subroutines is to allow a mainline execution to fall into a following subroutine 
and result ina RETURN WITHOUT GOSUE ERROR. Put a STOP or END Statement in your code to prevent 
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20 RETURN 15 END ‘ ” i ees 


this 
10 GOSUB 20 10 GOSUB 20 


20 RETURN 


Sometimes, you might have a tendency to make everything into a subroutine. Ifa given subroutine ts used 
just once, then it should be incorporated into a program where it is used to save execution time and 

memory space. On the other hand, subroutines are incredibly powerful RiGee: tools and allow you 
to structure your program into blocks. 


FOR-NEXT LOOPS 
FOR-NEXT simplifies the writing of BASIC programs by allowing one to specify complex loop ainelures 
with a single statement. 


FORI=ATOBSTEPG:: + : 


The end of the loop is specitied by the statement - 
a Ee 5 Wes NEXT 


Nested FOR NEXT loops are permitted as long as each loop uses a unique variable. Use of identical loop 
variable names may result in NEXT WITHOUT FOR errors. 


Exiting a FOR-NEXT loop via a branch will leave the FOR entry on the stack. The best way to handle this is 
to assign the maxiinum limit to the variable then exit the loop through a NEXT. 


; We have seen how repeated operations can be performed using a counting variable such as | in the 


routine. Come pests ; 
10 t=1 % fae 
20 |=f+1 ; 
30 IF I <=10 THEN GOTO 20 





In this casé, any routine appearing in lines 21-29 will be repeated 10 times. In addition, the variable | will 
have values which range from 1 to 10 in increments of 1. ; 


This looping process can be genralized in the case: : er 
10 ISA eee ene 


20 1=14C Zs net 
30 IF 1 <=B THEN GOTO 20 : 


The values of | will range from A to B in increments of size C. 
Since this process is cumbersome to use, BASIC also provides you with the FOR-NEXT statement: 


10 FORI=ATOBSTEPC pr~ Lad. Vg or 7h 
20 NEXT aU oon AUG taall \, c 


lis the counting variable, A is the initial value, B is the ending vatue, and C is the increment. 


A, B, © may not only be constants, but they can be any vatid arithmetic expression 
10 FOR }=A(2)+1 TO J*°2 STEP -1 a ox) : 


On the other hand, the counting variable can be any. floating variable but cannot be integer (1%) or 


subscripted 1(1,4). When the increments are of size 1(C = 1) you need not include the STEP in the program. 


10 REM COMPUTATION OF FACTORIAL 
20 NF=1 ee 
30 FORI=1TON oes ine aa ee ina 


7 STIR To coer om-cremeuemmpeminrties <° seus + semper Rt o-r=4 emupaesranaren— tipi etter, ineethashetanel ikeaieimmmmnnen tee e e 


40 NF=NF*t 
50 NEXT : Bed Oy pies S.2ie gtpy . pape’ 


Note how much shorter and more cléarly this-routine is written compared to the same factorial 
computing program written without FOR-NEXT. a 


Whenever a FOR Is executed, a 16-byte entry is pushed Onto the stack. Before this is done, a check is 
made to see if there are any entries already on the stack for the same loop variable. If so, that FOR entry 
and all other FOR entries that were made after It are eliminated from the stack. This is done so thata 


“program which jumps out of the middle of a FOR loop again will not use up 16-bytes of stack space 


each time. : ; “J a, hs oe ee eee é 


NEXT matches the most recent stack entry or the variable specified as a parameter and resets the stack 
to that point. if no match is found, a NEXT WITHOUT FOR error occurs. 


GOSUB execution also puts a 5-byte entry on the stack. When RETURN Is executed, the stack Is searched 
for a FOR entry that cannot be matched, When ail the FOR entries on the stack have been searched, a 
pointer 
is left on a GOSUB entry. This assures that If you GOSUB to a section of code in which a FOR loop is 
entered but never existed, the RETURN will still be able to find the most recent GOSUB entry, 
RETURN eliminates the GOSUB stack entry and all FOR entries made alter the GOSUB entry. 
NESTED FOR-NEXT LOOPS 
FOR-NEXT loops, like Subroutines, can be nested, That is,a FOR-N EXT loop may be contained in another 
and so on. When doing so, it is important not to use the same counting variable as.this wili result in 
esq, NEXT WITHOUT FOR ERROR 
"40 FORT=1TO 10 
15 PRINT “1” 
20 FOR J=1TO 10 
25 PRINT ‘‘y"* 
30 FOR K=1TO 10 er enTaanis 
35 PRINT "kK" Co Re a ee 
40 NEXT Me Se a ae 
50 NEXT eat MAAS SE mat azans oe eer eee ae are 
60 NEXT Saw el VSR De eae ees 


aa ee 














Lines 40-60 of the above example are confusing at first glance because one cannot tel! which NEXT 
corresponds to which FOR. Optionally one may Specify a variable following NEXT. The variable refers to 
the counting variable used in the corresponding FOR but in no way is it required by BASIC to execute 
the'NEXT. = | 

40 NEXT K 

50 NEXT J é 

6ONEXTI ase 


PET BASIC will also allow you to write one NEXT that terminates all three FORs at one time 
40 NEXT K, J, ! 


A NEXT WITHOUT FOR error will result, however, if you are careless in specifying the order of KJ,I. 


it is interesting, however, to see how compact the notation appears and how powerful the FOR-NEXT 
expressions can be when they are nested. 


hn a an mt 8 ere neti oetrs, eatileeeiiass hit tale = 


Pree 


EN oe 


pot nen el etn meaner mat aspen senate times of acca ner nse ee He eee 


re 


Some hints 


You may change the value of the counting variable during the looping sequence. en 
For example, 








10 FORI=1T08 Re ON hin kins 
20X=X+1 aa me ee Bae 
SOIR SP THEN TES nc ehh ea eee ies 

40 NEXT Be ees ahh es : 

50 PRINT X ay 


prompt tosis beets goes sew bodb ascites Sse 


“will comput the value 7 ei ie 
X=1424344454647= 28 





Tee tin tee, 


Similarly, when you exit a FOR-NEXT loop using a branch, you should assign the counting variable the 
end value and then exit the loop via a NEXT statement. For instance, you should use. - o-oo, 
: 10 FORI=1T0O 10 
20 IF FNA(I)=0 THEN 1= 10° 

Botene 30 NEXT:RETURN (9 0 O% 

Instead of eat 
a SB gr age 10 FORI=1TO 10° ~ _ 
20 IF FNAQ)=0 THEN RETURN aa 
30 NEXT . ai a a Po 








SUBSCRIPTED VARIABLES ‘ ; 
Array variables need not be declared with a DIM statement if they have only one dimension and contain 


less than 10 elements. The total number of elements in an array can be computed by multiplying the 
(number of elements in each dimension) +1 by the other subscripts. Thus A(9,8} contains (9+1)° (841) 
elements. Subscripts start at 0 and go up to the maximum vatue 

A(0,0)-------A(0,8) 

A(9,0) ——A(9,8) . 
Limits on the number of dimensions and size of a dimension are dsibinined ef size of memory avaliable: 


and space available on a line following a DIM. PET BASIC restrict the total number of 
array elements to 256. Each array element requires at least 5-bytes of storage. 





If a single dimension array requires more than 10 elements, the DIM statement must be executed before 
the first reference. Otherwise, a REDIM’ED ARRAY error will occur. 7 
Example: List of account balances | __ 





gloss 


OOnN AOA LWA «- 





Suppose we need to write a simple program which allowed you to INPUT an account number and a 
transaction and keep a running total on each account. We could refer to each account balance as At, A2, 


Parallel togic to accomplish the summation 
10 INPUT “ACCOUNT, CHARGE”: 1, Cc 


20 IF 1=1 THEN A1=A14+C 
30 IF !=2 THEN A2=A24+C 
etc. Peers ‘ ae 


1 ] A3, A4, AS, etc. This is acceptable but would require a lot of 
i 


This list can be stored in a single variable which is actually a list of variables. This list is an array of 
values and an individual value is accessed by an index. The 


index we can use is the account number. Our 
“program can be reduced to: 


10 INPUT “account, charge”; 1,C ite ye 
20 A(I)=A(N+C a 


i? 
7] waoron fits 
J 


The list we have represented has 9 rows and 1 column. Thus it is a 1dim 


ensional array. A multiple column 
table can also be represented. This is a two dimensional array. . 


PALO U2 Bats 


¥ 
o 
2 


Account # Balance #oftransactions 








DONAMAWNH = 


1 
1 
1 
1 
1 
1 
1 
1 
1 





= : wat 


F] Our table has 9 rows and 2 columns. To access a certain entry position, you must specify the row index 
bity and column index of where it is contained. For example, the quantity denoted by a “is in row 3, column 1. 


eos In order to use such a table in a BASIC Program, you must provide a state 


ment, to describe the number of 
fows and columns contained in the array variable. 








—~D . ‘ 
Such a description is a DIMension Statement. For our table of 9 rows and 2 columns we could write 

7 states 22 Cae ery celDIM A(Q,2) ; ce PETA PEN Heute = te 

i 49: 

o” Let us rewrite our program to update the column containing the number of transactions 

a “" 40 INPUT “ACCOUNT, CHARGE": I, C Bek ee AS es Bal Agee 

20 A(l,t)=A(,1)+C 

a 30 A(i,2)=AU1,2) +1 a ie 
— 40 GOTO 10 
— * wee: 





= Now suppose that we had a table for each of 5 companies and each company had 9 accounts and each 
— account had a balance and each balance had a number of transactions. We can describe this as piling 
_ sheets of paper on top of each other and refering to each sheet by number. 


50 


wo ee a ee er rr ne 


an hee a em eet pn 


eee 


are ene ot cease tenn eileen eenncntnenat cine 











We have created by this example a multi-dimensiona! subscripted variable. These arrays correspond to 
Matrices used in mathematics. ; i 


In mathematics, a vector is an ordered collection of numbers: 
V= (U1, VayeseUa) : 





The above vector has n components and is called a vector of dimension n. 


For example, 
v=(3,9,2) 
is a vector of dimension 3. 


Order is imporatant here since if 
w=(3,2,9) : 
wy. ane! ' = 


Vectors can be stored in memory using subscripted variables. These variables are used in the same way 
as the variables we have seen so far -X, I%, AS, etc. That is, they call whatever value is stored in that 
variable or return a zero or null ("") if the value has not been previously specified. 


Like vectors, subscripted variables have the power to execute a targe number of operations using a single 
notation. They are especially useful when combined with FOR-NEXT loops as the next example shows. 


Example: Dot Product ak pe ee aA ts yees 

The dot product of two vectors v &wisa vector, denoted by v © w, whose ith component (vow), is ¥ x We 
For example, in the four dimensional case, if 

vss (¥y, va, Ys, Va) 

and w = (Wi, Wa, Ws, Wa) Ret ah Es 
Then vew=(v. X Wi, v2 X Wa, Vs X Wy, eX Wa) 





Suppose we had 
v=(5,6,7,11,4,6, 1 st 
w = (9,5,2,1,0,3,2) aca 
Then a program to compute the dot product v * w might look like. . 
“FOR =1TO 7:READ VI): NEXT 
FOR|=1T0O 7:READ Wi(l):NEXT 
FORI=1TO 7:NWi(l) = V(I)* W(I):NEXT 
FORI = 1TO 7:?VW(l):NEXT 
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DATA 5,6,7,11,4,6.] 
DATA 9,5,2,1,0,3,2 
SUBSCRIPTED STRING VARIABLES 
It was mentioned previously that subscripted variables can be 
decimal: A(i) 
integer: A%o(I) 
string: AS(1) 
Subscripted string variables are extremely useful as shown in the next program which prints a bar graph 
of the U.S. GNP from 1966 through 1974. a Tie 


aa 


aay 


oivk 


GROSS NATIONAL PRODUCTS 
(IN $ BILLIONS) 


GT AOR S E1063! Deh kee tn 





The program listing is: 


READY eke 
10 SPACE $=" ‘ PRR AEE, : @ te : 
20 FOR |=1 TO 7: READ AS(I):NEXT i Kean ave SERA 
30 FOR t=0 TO 8: READ V(i):NEXT ae VA 
40 PRINT“ 9 SPC(8)"GROSS NATIONAL PRODUCTQ” 
50 PRINTSPC(12)"(IN $BILLIONS)Q” 
100 FOR!1=0TO 8 e 
410 X = V(1V45:¥ = INT(X) hee 
120 PRINT "R"LEFTS(SPACES,Y)AS(S*(X — Y)) 
130 PRINT “ O R”STAS(66 +1)” $“STRS(V(I))Q” 
140 NEXT 
200 DATATS Cm" mg a ope pg 
210 DATA753,796,869,936,982, 1063, 1171,1307,1413 
READY 








$2 


Sn ec <a RR cade a 20cm nae aera ee aaheetern ene ee 


The subscripted values Vi), V(1),....V(8) are the GNP's for each of the 9 years. The pup ee strings 
AS(0), A$(1),...A$(7) give accuracy to the graph by printing these graphics: a 





A$(0) null(by , 

default) 
AS(1) P I : HS Fee. ca — 165 
AS(2) | BNO ayes te - 180 ne : 
AS(3) a 181 
AS(4) . oe Py rele , 161 
AS(5) Beten lS eshen : 182 (R) 
AS®) tae aia for eee 170 (R) 
AS(7) ae 1867 (R) 
THE HEADING 2 % BT cttanedans a! 


GROSS NATIONAL PRODUCT ~ 
(IN $BILLIONS) 


is printed in lines 40 and 50 and then a FOR-NEXT loop on fines 100-140 prints out the eight bars. Line 120 
prints out each bar and line 130 prints a cursor up and then the associated year, STRS(66 + !) and GNP, 
STRS(V(1)). 
Each bar is made up of Y reverse field spaces and the string AS(8*(X-Y)). The Y is determined by the .. 
formula 

Y =INT(V(N/457 7 

= INT (GNP/45) Aas 

Here, 45 is purely a scale adjustment. The proportions of the bars remain the same when values other 
than 45 are used. : 
Fine tuning on the bar length is accomplished using the subscripted string variable 

AS$(8*(X-Y)) : 
Here 8°(X-Y) will range over the decimal values 0 through 7.99...9 but AS automatically truncates the 
decimal part. eae Be ce 








DIMENSION STATEMENTS 
When using more than 10 subscripts for any variable, a dimension statement must be given. It takes the 


form, DIM AS(K), where K is the largest subscript of AS used in the program. When variables are 
redimensioned without a CLR statement or when a dimension statement appears after the variable has 
been used, a 7REDIM’D ARRAY ERROR occurs. When a dimension statement is made, space is reserved 
in memory for the given number of variables, including the variable whose subscript is 0. It is good 
programming sense, therefore, to begin subscripts at 0 and not’ 1, : 


Because the variables are divided in storage between arrays and simple variables insertion of an 
additional! simple variable is a bit more complicated once an array has been defined. First, the entire array 
storage area must be block moved upward by seven bytes and the pointers adjusted upward +7. Finally, 
the simple variable can be inserted at the end of simple variable storage. 
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If large arrays are defined and initialized first befor2 simple variables are 
assigned, much execution time can be lost moving the arrays each time a 


simple variable is defined. The best strategy to follow in this case Is to Sta Sane 
assign a value to all known simple variables before assigning arrays. This 
will optimize execution speed. ~ 


{ 





Functions of new and CLR on data polnter: 
CLR dade Se Ai ee a ee en rene 
String pointer equated to top of memory eee Os 
- --— Data pointer to start of text -1 - ; 
End of array table to start of variables ~~ 
End of simple variables to start of variables : 
NEW : . 
‘String pointer equated to top of memory 
Data pointer to start of text -1 
End of array table to start of text +3 ; ocak phtitn tet eet ; 
End of simple variables to start of text +3 . moet OE eS, Mey vee 4 
Start of variables to start of text +3 : : 





Aa te 


re co ee 








= ‘ t a 
ff i a 
: ee “3 
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start of strings 
end of array table 
end of variables 
start of variables 
data statement 
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Chapter 7. PET INTERFACES AND LINES 
As indicated in Figure 7.1, there are four connectors provided, accessible through slots in the rear and 
side of the PET that enable the user to interface the computer with external devices. 


ps As outlined in Figure 7.2, edge card connectors are utilized which are, in fact, direct extensions of the 
PET main logic assembly board itself. There are two contacts to each Position of the connector. The 
contact identification convention for J1 and J2 is also illustrated in Figure 7.2. 





MEMORY EXPANSION 
‘ACONNECTOR  2NO CASSETTE 
. canes INTERFACE J3 


1.64 FUSE 
INTERFACE Jt] iso BLO) 





PARALLEL 


WIRE AC 
USER PORT 12 ; 


i 
SERIAL NUMBER POWER CORD 
AND : 
ELECTRICAL SPEC, 


Figure 7.1. Simplified view of PET showing switch, 
fuse, line cord and interfacing connectors. 


FROM PET MAIN LOGIC ASSEMBLY BOARD 







Upper 


tInsulati 
nsuton 42 34 5 6 7 8 9 10 12 ona 
am 5 Lower & dekink 
ee ae A BC DE FH J KLM N Neon 
Rear or Edge-on View through slots in PET {or Pin} 


Figure 7.2. Simplified views of edge connectors J1 and J2 
to iMustrate contact identitication convention. 


JEEE-488 INTERFACES (Connector J1) 
The standard IEEE-488 connector is not usdd on the PET. Instead, a standard 12 position, 24 contact edge 

=-z.Gonnector with..156 inch-spacing.between:contact centers is-_provided. This permits it to be compatible 
with all of the other connections to the PET. 





Keying slots are located between pins 2-3 and 9-10, 


Table 7.3 shows the PET contact identification characters, the connection fora standard IEEE connector, 
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the IEEE mnemonics and the signal definitions. ie Sas ee Re 
Electrical drive capability and line impedance matching is in accordance with IEEE-488 specifications. 


ee GTiAD Hoos c 





Standard 
PETPin |p JEEE Hine 
Characters ONRSCIOF 1908 
ee Pia Mnemonic 
Numbers 









Signa! 
Definition/Label 


Upper Pins 


tek Md eS ea a 


Data input/output line #1 

Data input/output fine £2 

Data input/output line $3 |’ 7 
Data input/output line +4 
End or identify 

Data valid 

Not ready for data eet) Reali 
Data not accepted 
Interface clear 
Service request 
-Attention St ce An 
Chassis ground and. JEEE 

cable shield drain wire 


J 


ee BOM 





| 
— 


OONVWAM AWA = 





Lower Pins fo ce tegen gl r sd 
; : Data input/output line #5 
Data input/output line =6 
Data input/output line #7 PE ene pt 
Data input/output line +8 
Remote enable 
DAV ground - Bor Mb ed 


Lower Pins ee Seregtey 
NRED ground 
NDAC ground 
(FC ground 
SRQ ground 
ATN ‘ground 
Data ground (D101-8) 


ee as ee 


: Table 7.3. PET contact identification characters. 
. IEEE-488 identification characters, 
* essoclated tabels and descriptions. 


Babe Ge 


i] 


RECEPTACLES FOR THE IEEE INTERFACE ; 
Alist of frequently used 12 position, 24 contact receptacles that are suitable for connection to the PET 


edge card connector J1 and J2 is shown here: 


[wonstacnner [Pet Romo | 


i 















, Cinch 251-12-90- 160 
d Sylvania 6AGGQ1-12-1A1-01 
Amp 530657-3 
Amp §30658-3 





Amp 530654-3 


Poa 


Table 7.4. Receptactes recommended for PET 1EEE-488 
connectors or parallel user port. 
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a cee 


IEEE-488 CONNECTORS ‘ : 
| : The IEEE-488 standard receptacles are not directly connectable to the PET Paget connector; some of 
: these are shown in Table 7.5, and belong to the Cinch Series 57 or Champ Series (Amphenal). Also shown 


are their matching plugs. 
Connector 
ee [ae [ee | 
Solder-plug 


Cinch 5710240 
Solder-receptacle ~~ 


5720240 : 
Insulation displacement plug 


552301-1 
§52305-1 Insulation displacement receptacle 
















Table 7.5. IEEE standard connectors 


Commodore has available a 1 meter long IEEE-488 dual connector-PET edge connector, cable. Please 
contact your local dealer or Commodore for arice and delivery. 


PARALLEL USER PORT (Connector J2) ; 
The lines for this interface are brought out from the PET main logic ‘board to a 12 poaltion: 24 contact 


edge connector with a .156 inch speck between contact centers. See Table 7.4 for suitable mating 
connectors. 


ek © YE OE NON TOCOTE NY CrOe CE SSE aS 


| 
| 
| 


Keying slots are located between pins 1-2 and 10-11. °°" 777 ot te 


Table 3-1 shows the PET pin identification characters, the corresponding labels and their descriptions. 


Note that the connections 1-12, the top line of contacts (see Figure 7.6), are primarily intended for use by 
the PET service department or qualified dealers. When using the incorporated ROM diagnostic, a special 


connector is used; this jumpers some of the top contacts to the bottom contacts. It is Strongly advised 
that the top connectors 1-12 be used only with extreme caution. 


Pin sae : sind 
Identification s ignal 
Character escription 


Ground Digital ground. 


T.V. Video Video output used for external display, 
. used in diagnostic routine for verifying 
the video circuit to the display board. . 


IEEE-SRQ Direct connection to the SRQ signal on 
the 1EEE-488 port. It is used in verify- 
ing Operation of the SRQ in the diag- 
nostic routine. 


bao : IEEE-E01 Direct connection to the EO! signal on 
the IEEE-488 port. It is used in verify- 
ing operation of the EOI in the diag- 
Nostic routine, 


Diagnostic When this pin is held low during power 

Sense up the PET software jumps to the diag- 
nostic routine, rather than the BASIC 
routine, 








Table 7.6. Parallel user port information. 
-~ PET pin identification characters, the corresponding 
signal labels and their descriptions. 


mos ; ‘ edt b 


Table continued on next page, "+ . % on Sa S 
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Table 7.8. Paraliel user port information (continued). 












di i Signal Signal 
Identification abet sa 
Character escription 


























Used with the diagnostic rautine to 
verify cassette tape =1 read function, 
Used with the diagnostic routine to 
verify cassette tape =2 read function, 
Used with the diagnostic routine to 
verify operation of the WRITE func. 
tion of both cassette ports. 


"TV. vertical syne signal verified in 
Vertical diagnostic. May be used for external 
TV display. 
TV. T.V. horizontal signal verified in 
Horizontal diagnostic may be used for TV display. 
GND Digital ground. 


GND Digital ground. 


CAI Standard edge sensitive input of 

6522VIA. 
PAO s 
PAI Input/output lines to peripherals, 
PA2 and can be programmed incepi-nd- 
PA3 ently of each other for input 

Or Output 4 

PAS 7 


PAS 
PAG 
PA7 
C82 
GND 


Special 1/0 pin of VIA, 
Digital ground. 














VERSATILE INTERFACE ADAPTER 


The lines on the bottom side of the user port connector originate from a Versatile Interface Adapter 
(VIA MOS Technology part #6522). 


The signals CA1, PAQ-7, and CB2, are directly connected to a standard 6522 VIA located at hexadecimal 
+] address E840. (Decimal address 59456). } ,. j 


The parallel port consists of eight programmable bi-directional /O lines PAQ-7, an input handshake line 
for the eight lines,CA1, which can also be used for other edge-sensative inputs and a very powerful 
vat connection, CB2. This has most of the abilities of CA1, but can also act as the input or output of the VIA 


shift register. 


A detailed specification for the VIA is below. All signals on the VIA. that are not connected to 


a port are utilized by the PET 10% internal controls. Please note that the user should d avoid id intertac i 






‘signals in any way. 


27 TTT rm nemnagagin snore eevee tert eet Se eR RO PC Re Ep uate peer e m 
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Table 7.7 shows the decimal and hexadecimal addresses in the PET associated with the VIA, 


Hex: SE840+ Addressed Location 
Decimal 


Output register for 1/O port Bx 


Output register for 1/0 port A 
with handshaking. 

1/0 Port B Data Direction 4 
register. 


1/0 Port A Data Direction 
register. 

































Read Timer 1 Counter low order 
byte Write to Timer 1 Latch 
low order byte. 

Read Timer 1 Counter high 
order byte. Write to Timer 1 

Latch high order byte and 

initiate count. 

Access Timer 1 Latch low order 
byte. 

Access Timer 1 Latch high order 
byte. 

Read low order byte of Timer 2 
and reset Counter interrupt. 
Write to low order byte of 
Timer 2 but do not reset 
interrupt. 

Access high order byte of Timer 
2; reset Counter interrupt on 

write. . F 


Serial 1/O Shift register. 
Auxitiary Control register. 





Peripheral Control register. 
Interrupt Flag register (IFR). 
Interrupt Enable register. 


Output register for 1/O Port A, 
without handshaking. 


Or ian eit eee areas 


Table 7.7. VIA 6522 Decimal and Hexadecimal addresses in PET... “ 











joo cepyer Cp bacnsge’ 2S COR here dg at bo tagenad oo a e 
te, | 
geri tase SS ren Gt settaeighe ind at Wut Gig ds besunn tea hy ave alt 
PROGRAMMING THE USER PORT ° ee eT 
Data lines PAOQ-7 are individually programmed to fonction for input or output as required. This is deine by | 


using a software POKE 59459 command to place a number Into the data direction register. Table 7.8 
shows a practical example of input/output selection. : ; . | 


The programming need only be carried out at the nepianing From then on POKE 59471 « can be used to 
= drive the pins programmed as outputs, and PEEK(59471) will read alf the inputs. 
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Command Binary 
Statement Representation 





















POKE 59459255 TATA Output / 
POKE 59459,0 ecadocoe Input f 
_ POKE 59459, 248 13110000 Input 





Output 





Table 7.8. Parallel user port example. 
Programming of lines PAO-7 for input/output operation. 


be Len his 





SECOND CASSETTE INTERFACE (Connector J3) 
This interface is brought out from the PET main logic board to a6 postion: 12 contact edge connector 
with .156 inch spacing between contact centers ieee Figure 7.9). Vit an 


see DB et 


A keying slot is located between pins 2-3, 





4 es 


This port is intended for use with the Commodore second cassette system only. Any other connections 
are made at the risk of the user. Please note that +5 volts is not intended for use as an external power 
supply. aay abe i Mn ageote, 


Table 7.10 Sheine the PET py pin identifieation characters, labels and descriptions. Table 7.11 T shows some 
typical receptacles that are suitable for the second cassette connector. ate ee; 


+e eU ee 





FROM PET MAIN LOGIC ASSEMBLY BOARD ~ Lone 
aor) 4 
‘i wi Saas : 7 Top 
at -_ 4 View 
\ } 4 £3 

a , po. oo ; . a Upper 
: 2 ' ‘ Contact 
Nsulation {or Pin} 


Ge ate ee 


nee 6 
* ~ we 22 
" ae Lower 
Cop em dart as mae A BC OE F Contact 
cg (or Pin} 








Rear or Edge-on View through slot in PET 


Figure 7.9. Simptified view of edge connector J3 
with contact Identification. 
»t, Note A-1,B-2, etc., imply a pin A to pint, pin B to pin 2, connection, 
In some special units, pins 1 through 6 were not connected. 





' 
: { 
Identification . Description 
Characters : 





ven . Digitat ground. 


Positive 5 volts to operate cassette circuitry 
only. : 


Computer controlled positive 6 volts for 
cassette motor, 


ane 


Read tine from cassette. 


Write line to cassette. 


Monitors closure of mechanical switch on 





oO ss 


cassette when any button is pressed. 
: ; Table 7.10. Second cassette interface port. 
gels Linens wl. PET pin identitication characters, labels and associated descriptions. 
62 
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MEMORY EXPANSION CONNECTOR (Connector J4 and J9 
The memory expansion connector provides access to the buffered 
and decoded input/output lines from the 6502 microprocessor. Figure 















Sylvania 6AJG7-6-141-01 









Viking 2KH6/1AB5 7.12 shows a simplitied view of the 80-position connectors used. The 
Viking 2KH6/2485 spacing between contact centers is 0.1 inch. 

Viking 2KHG6/21AB5 ae : 7 

Amp 630692.1 Note that the 40 top edge “B” connections (or pins) are ground 
Sullins ESM6-SREH returns for the corresponding 40 lower edge “A” connections. 

Cinch 250-06-90-170 ad A oR : 


i PNET TN cab be. Sar puns ie 
Table 7.11. A selection of suitable receptacles for connecting 
with the PET second cassette edge connector J3. 





DAUGHTER BOARD EXPANSION CONNECTORS (J4, J9, J1G, JIT) : 

The PET main togic board has been designed to support a daughter board which attaches to memory 
expansion connectors J4 and J9, and expansion power connectors J10 and J11. Table 7.12 shows 
suitable connectors which the user may attach for .his own boards. All connector pins are on .1” grid. 
J4 and J9 are 2x25 (row, column) configuration, and J10 and J11 are 2x7. Table 7,134 lists the .. . 
daughter board power connections and table 7.138 lists the memory expansion connections. 









Memory expansion bus table 7.13B 


12.3.4 5 6 7 BY 10 18 12.13 14 15 16 17 18 19-20 21 22 25 24 25) 
SdeA@ @SeCeeGCeeeeeeoeeeeeeee eens 









Daughter board power connections table 7.13A 









SdeB@@eeeoeeeoeeeeeoe ee eeeneeeee 











e@eoeee8 e900 e@@¢008 







































































1234567 1234567 ty 
S10) pin # function pin # function 
pin # function pin# — function SideAl ground = 14 BA12 
1 __-5V Raw power 1 +9 unregulated BAG 15 BAI3 
2 -5V Raw power 2 key 3 BAI 16 BAI4 
3 key a. key . 4 BA2... 17 BA1S 
4  +12V Raw power 4 +9 unregulate 5 BAS 18 SYNC 
5 +12V Raw power 5 ground 6 BA4-  . 19 iRQ 
6 Ground 6 +9 unregulated 7 BAS 20 Memory Management 
7 ~~ Ground 7 Ground 8 BAG 2  BG2 
9 BA7 22 BR/W 
te + 10 BA8 23 BR/W 
11 BAO 24 DMA 
12 BAW 25 ; ground 
13° ~BATI Side B1-25 ground 
: oe 
Spectra-strip 2x7 802-194 =| H pin # function pin # function 
Spectra-strip Side A1 ground . 14 SEL 6 
Spectra-strip 2 BOS - 15 SEL 7 
Spectra-strip 3 BOt 16 SEL 8 
Circuit-Assembly | 2x7 4 BDd2 17 SECS 
Circuit-Assembly | 2x25 5  BD3 18 SELA 
: 6 BD4 19 SEL 8 
Table 7.12. A selection of suitable receptacles 7 BOS 20 CAS 
for connecting with PET daughter board pin 8B BDd6 21 RAS 
connectors J4, J9, Jif, and J11 9 BO7 22 RES 
10 SEL 2 23 D 


W SEL 3 24 
12 EL 4 25 © 
Side 81-25 


ge 2D 
aS 
83 aq 
ic 
a5 
aa 
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: Connector ‘Line ~. ae 
Pin Numbers] . Labels. |. . , Eine Description 
‘A 


| Logic Ground . 
Address bit 8, used for memory expansion. Buffered. 
' Address bit 1, used for memory expansion. Buffered. 
| a Address bit 2, used for memory expansion. Buffered. 
: Address bit 3, used for memory expansion. Buffered. 
Address bit 4, used for memory expansion. Buffered. 
] Address bit 5, used for memory expansion. Buffered. 
Address bit 6, used for memory expansion. Buffered. 
Address bit 7, used for memory expansion. Buffered. 
] Logic Ground. 
Address bit 8, used for memory expansion. Buffered. 
Address bit 9, used for memory expansion. Buffered. 
Address bit 19, used for memory expansion. Buffered. 
| Address bit 11, used for memory expansion. Buffered. 
Address bit 12, used for memory expansion. Buffered. 
Address bit 13, used for memory expansion. Buffered. 
Address bit 14, used for memory expansion. Buffered. 
Address bit 15, used for memory expansion. Buffered. 
~ IRQ Interrupt request line to the microprocessor. 
} : Buffered phase 2clock. - , 
a = Buffered read/write from 6502 microprocessor. 
, - 4K byte page address select for memory locations 2600-2FFF. 
| Le 4K byte page address select for memory locations 309-3FFF. 
4K byte page address select for memory locaticns 4900-4FFF. 
4K byte page address select for memory locations 5¢¢¢-5FFF. ~~ 
| - 4K byte page address select for memory locations 600-6FFF. 
4K byte page address select for memory locations 7000-7FFF. 
4K byte page address select for memory locations 8400-8F FF. 
4K byte page address select for memory locations 900@-9F FF. 
, - 4K byte page address select for memory locations AQQQ-AFFF. 
4K byte page address select for memory locations BdG0-Bfff. 
= Reset for 6502 microprocessor. Note: connected to EAEADD: output. 
: - Ready line to the microprocessor. 
Non maskable interrupt to microprocessor. 
J9-1 Logic ground. 
Data bit 9. Buffered. 
‘ Data bit 1. Buffered. 
4 Data bit 2. Buffered. 
| Oata bit 3. Buffered, 
Data bit 4. Buffered. 
! . Data bit 5. Buffered. 
| . Data bit 6. Buffered. 
Data bit 7. Buffered. 
Dynamic RAM RAS. 
pod - Dynamic RAM CAS. 
Logic Ground. 








ADDITIONAL BASIC COMMANDS 
By this time, the user is probably familiar with the use of the commands INPUT and PRINT. INPUT 
permits the output or display of data. These commands are common to all forms of BASIC. . 


To add flexibility to the PET computer system, several commands have been added to classical BASIC in 
the PET, and future Commodore products will take advantage of the resulting extra capability. In general, 
enhanced Nexibility of data interchange beiveen the PET and peripheral devices is possible, thanks to 
the use of these extra commands. 


2 


To communicate with any device, a combination of the additional commands is used: 
a) OPEN/CLOSE Open or close logical tile. 





b) = PRINT# Write data from PET to '/O device. : 

c) CMO: Same as PRINT# but leaves IEEE device an active © : 
cas listener on bus after execution of command. i 

d) !NPUT# _Read data from I/O device to PET. ' | 
e) GET# “PET accepts one character from WO device. 


INPUT/OUTPUT COMMAND PARAMETERS Sas eee EE ; =. | 
In order to use the additional commands referred to in the above, four parameters must pe taken into 
consideration: : : 


a) Logical file number (LF). : fa _ - of a vs : or . ea | 
‘ b) Device number (D) 5 ath) ee eae i 

c) Secondary address (SA) = °°. gasgeins SA 4 a | 
d) Filename (FN) is et 3 | 


These parameters can appear, for example, whan using the OPENS command in the form of the 
statement:. + Pas Pb ba we i - 

OPEN#LF,D,SA,FN 1 * : 
‘LOGICAL FILES ea tee 
Files are used to store and retrieve data, as for example in the case ofa midoneile tape or disc file. A 
Convenient extension of this idea is to regard any device which can receive and/or generate data asa 
logical file. To the PET operating system, data might pee as well have come from, or be going to, a 
storage system such as magnetic tape. i : 





ae For example, imagine that an external digital voltmeter is set up so that it can transmit voltage readings” ~ 
upon request to the PET via the IEEE bus. Sometime during the “voltmeter program" the programmer will 
have to open a file and assign a logical file number to refer to the voltmeter. Once this has been done, The 
PET can use a “read” command (INPUT#) which uses the logical file number to refer to the voltmeter. 
When no further data is required from the voltmeter, the logical file can be closed. 


More generally, the advantages offered by the use of logical files are: 


a) Every device number secondary address combination 
can be associated with its own unique logical file numbe' 
within a program. oot 
a b) Multiple files within a single dex ice can be istered to: 
Fs by means of distinct logical file numbers. This approach is 
to be used in the newly developed disc eiiese system for 
oat the PET. > y 
= c) Once a logical file nuimbet has been defined in an OPEN 
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statement, within a program, only this number need be used eS ign eS 
‘in the following input/output statements. This eliminates the 
need for furthe: restatement of device number, secondary e Phage BP ter 
address (where used) and file name (where used). Se Bes 
~ Although it is permissable to identify and use many logical files in a given program, the PET operating 
system has to keep track of the fifes that are currently in use in the program. The greatest number of files 


that can be controlled by the PET at one time is ten. A logical file number can be any integer in the 
range 1 through 255. mcbeane 





DEVICE NUMBERS ne i 
All devices which the PET communicates with are assigned numbers. The first four of these are reserved 


for the following peripherals: oe Ma A a hoe Gk Ag ee GDR CR eet WANN OCT 
; Device ere : on : : 
“*) Number - Device Syn Comercial 0 gyrate ee esp atc yo 
0 Keyboard a acc Ge RC Be nea SR RY Oa 
Default- 1 Cassette 1 panel mounted : . Bins me 
2 Cassette 2 add-on re oc iene ene eo 





Pe - t $ Video screen Beate ah AMR ek eee th 


Ail other devices are automatically assumed by the PET to be IEEE devices, and control is transferred to 
the device which will have been allocated a number within the range 4 through 30. Except in special 
cases, a specific number would be allocated to each IEEE device to allow the PET and a particutar device 
to communicate using the parallel IEEE-488 bus. “eed . ae a ‘ 


On many IEEE devices, the allocation of the device number is mnie oe means of a switch, or in the case 
of less expensive products, by the connection of jumpers. og ee nett aa 
~ SECONDARY ADDRESSES 


The concept of secondary address may be new to jhede neepie whe have never worked with the IEEE bus. 
The use of a secondary address permits an intelligent peripheral to function in any one of a number of 
modes. For example, in a PET printer, there are six secondary addresses: 











; Secondary 
peta Address Operation We A OB Pater de pee ee Set emae tte am grea 
Pry. 2 Default- 0 Normal printing Yi Aes hacia hs cates 
: 1 Printing under format statement ‘control 
t ' 2 Transfer data from PET to format statement BERR ck EO 
>, 3 Set variable lines per page et eo eee 
4 Use expanded diagnostic messages : ey 
5 Byte data for programmable character . . 


In short, by changing the secondary address used to communicate with a given physical device, its 
operating characteristics can be totally changed, if so desired. Many of the IEEE devices have their own 
particular secondary address conventions which must be followed. Specific data on these conventions 
can be obtained by consulting the manual for that particular device. 


The PET tape units have a special set of secondary address rules: 
Secondary 
Address Operation 
Default- 0 Tape is being opened for “read” 
1 Tape is being opened for “write” 
2° Tape is being opened for “write” with an “end of 
tape” header being forced when the file is closed. 
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The secondary address can have values over the range 0 through 31. 

FILE NAMES 

In random storage devices where there is more than one file to be accessed, the use of names to identify 
files is mandatory. tn the case of tapes, a filenameis desirable, even if thereis only one file on the tape, since it 
facilitates the identification of tapes. 


For the two cassette tape units of the PET, a file name may be any combination of up to 128 characters. 
When a file name is searched for, it is matched on an ascending character basis. 


Assume that an eight character file name COUNTING was specified when writing. If desired, this could 
be searched for with an abbreviated name such as COU. The first file header that is found with these 
three consecutive characters will then be opened and positioned on. In principle, this could include 
unwanted file names such as COUNT or COUNTRY, as well as COUNTING. 


It is, therefore, advisable to specify the complete file name in order to avoid errors. 


For other devices which use named files, the individual description of the device should be consulted in 
order to ascertain the specific requirements for file name pees 


TAPE CASSETTE OPERATION FOR FILES 
The PET devotes special attention to the two tape cassette units that can be attached to it. The tape units 


are specially modified so that the PET has control over the motor movement of the cassette. 


It can also sense when the PLAY, REWIND, or FAST FORWARD buttons have been pushed; this is done 
by means of a single switch mounted in the tape unit. 


Note that the same switch is used to sense all three buttons: if any of the three is pushed, the PET will 
think that you pushed the PLAY button and will respond accordingly. 


Because of the type of mechanism used in the tape unit, the user must rewind, fast forward, stop, loa: 
and eject tapes. He must also put the unit into the write mode by pushing the record button either 
simultaneously with, or before the PLAY button is pressed. 


The PET has total contro! over the movement of the tape once the appropriate buttons have been pushed 
to engage the motor. 


Messages displayed throughout the program will tell the user when it is necessary for him to initiate the 
function of play or record. Logic dictates the times when the user should rewind and fast forward. 


The two tape units of the PET are handled independently, and the various control lines permit the reading 
of data from cassette #1, the reading of data from cassette #2, motor control of cassette #1, motor 
control for cassette #2 and a common write line. 

FILE RECORDING TECHNIQUE : 

The data structure embodied in the tape files will ensure the maximum memory utilization and maximum 
reliability of recording. : 


vader 


To accomplish this, the PET records data at two audio frequencies in two consecutive blocks of data. All 
of the data is totally repeated and by means of error checking techniques incorporated in the PET 
software, it is possible for most audio dropouts to be corrected by the operating System utilizing the 
redundant data stored in the second data block. 


In order to correct for (a), the fact that tape units record at different speeds, and (b), the normal drag 
characteristics of tapes, a speed correlation technique is used during reading. To correct for the 
individual start/stop characteristics on the tape and syncronize correctly between each block on tape,a 
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single tone Is written between blocks. This signet is used to syncronize both position and speed of the 
tape. Varying lengths of tone are used at the beginning and betv.een the data blocks of the tape. By 
writing about ten seconds of the tone on each opening of a file, the PET automatically corrects for normal 
leader. Individual tape blocks are separated by shorter tone durations. 

FILE HEADERS 

An important assumption underlying the tape system design was that the user would often want to 
record more than one file of data on a tape. In order to facilitate this and to allow for proper label 
checking, the first physical data recorded on tape for any operation is a file header. This file header looks 
exactly the same as the normal data block, except that the first character of every block on tape contains 
an identification character which enables the operating system to differentiate between program blocks, 
data blocks, file headers and end of tape headers. 


The PET allows for up to 128 characters of a file name to be stored in the file header. This ts the name 
which is searched for and matched on in the various OPEN/CLOSE options. 

TAPE BUFFERS 

Another basic premise in the design of the tape operating system was that the user would want to write 
tape independently of what is occurring on tape at a given moment. This is accomplished in the operating 
system by permanently assigning a block of memory as a data buffer for each cassette. A 192 character 
buffer is located at decimal address 634 for cassette #1, followed by a 192 character buffer at decimal 
address 826 for cassette #2. The tape file header is written into the buffer first and then written on tape. 


Data files are accumulated in the tape buffer unti! 192 characters are exceeded, then the contents are 
either written on tape for write, or if the program is reading tape, the next block of data is read into the 
buffer. Tape file headers and all data blocks are, therefore, 192 characters long. 


Tape buffers are not used in the case of program files, since these are written onto the tape directly from 
the memory in which the program resides. In order to accomodate the variable memory location, the file 
header for a program file contains the beginning and ending address for the program. The full Program is 
written onto tape in the usual form of two consecutive redundant blocks. 


MULTIPLE FILES 
In order to have multiple files on tape, the user needs the ability to add files to a tape and also know when 


a tape is at its end. It is, therefore, important that the operating system give an “end of file” and “end of 
tape” indication. 


In the case of data files, an “end of file” marker is appended after the last data character. This ts available 
to the user in a status word on fencing ibe ng of file” marker is auomeeaye inserted ae a write file 
is closed. : . eS 


In the case of program files, because all data is always contained in a single block, the end of the block 
signifies the end of the program. 


To signify that the end of the tape has been reached, a Special separate file header is written. When this 
is encountered during a search for files, the PET automatically stops the tape and indicates “file not 
found” to the user. A typical multiple file tape could contain first a data file, then a Program file, followed 
by an “end of tape” header as illustrated in the example of figure 7.14. . 


2A 
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LOGICAL FILE VO OPERATIONS: GENERAL. mig Re ae ene : SS Mga: 
These operations can be subdivided into three steps: 


a) Open the file - tell the PET everything it needs to know about the file. 
b) Read data from, or write data to the logical files. | 
o4ee 
c) Close'the file - allow the PET to clear up the device and terminate the active file, 7 
These steps are discussed in detail on the following pages. thas ciat ; - | 
OPENING FILES wa . 


In order to tel! BASIC about the file you want to operate on, it is first necessary to open the file. This is 
done by the following Statement: 


reat 


OPEN logical file, device, secondary address, file name 


More specifically, the statement consists of the command OPEN followed by the logical file number, _ 
then the device number to which the file is assigned, then the secondary address data (if any) 
communicated during the interaction of BASIC with the file, and last, the name of the physical file (if any). 
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This statement, or expression, is interpreted by BASIC, and cou!d therefore, use computed logical file 


numbers, device numbers or secondary address data. This capability is extremely useful when handling 
multiple file devices such as discs. 


The keyword OPEN and the logical file numbers are essential in order to open a file; that is address a 
device in preparation for a “read” (INPUT #) or a “write’ (PRINT 4). 


The device number is optional; if not entered, the default value “1” will be used. 


Afile name is optional, though preferred, for the tape units: however, aname would be essential for adisc 
storage unit. 





EXAMPLES OF OPEN STATEMENTS ; : Sie sors ee ee aac 
The statement OPEN 1,2,1 is interpreted by the operating system as saying: 
Parameter a 
(LF) Logical file #1 has been opened . ie 
(D) Logical file #1 has been assigned to tape unit#2 : 
(SA) Tape unit #2 has been instructed to write on tape : Rite, SR ae ge 
(FN) A file name has not been assigned to the tape record 


Similarly, OPEN 3 is interpreted as saying: (F) Nadeot, 





Parameter a 
(LF) Logical file #3 has been opened ; 
(D) Logical file#3 has been assigned to tape unit #1 (default “iy =" 
(SA) Tape unit #1 has been instructed to read from tape (default "0”) 
(FN) No file name referred to 


if a PET printer is assigned “4” as a device number, then OPEN 12,4,1 is interpreted as: 


Parameter et 
(LF) Logical file #12 has been opened : - 
(D) Logical file #12 nas been assigned to device #4 J 
(SA) Printer has been instructed to print under format statement control 
(FN) File name not applicable 





in 
2 
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LOAD : ie seen! Sas Fortine mas roeinara eof 
A special case of the OPEN command is the LOAD of a named file: a LOAD is done with the following statement: 
LOAD name, device number 


The operating system automatically generates an OPEN using the appropriate secondary addresses for 
“load”. This OPEN causes the loading device to search for a Program name. After the program is found, it is 


‘ automatically read from the device and loaded into memory starting at an address specified in the file 


header. Most reading errors on the first pass through that Program are automatically fixed on the second pass. 


At the end of the load cycle, a checksum error, of the total Program is made. if a checksum error, or if an 





uncoverable read error occurred, the operating system automatically prints 2LOAD ERROR and stops 
the load program. j . 


If the program load was from direct mode, the clear function is performed at the end of the lead, thereby 
initializing all variables. ae 


If the LOAD is called from a program, then the PET treats this LOAD as an overlay. The new program is 
Joaded into the space used by the previous Program, but the values of all of the variables are maintained 


from the previous program. This allows for one Program to call another and pass parameters to the called 
programs. 


The only restriction on this is that all the called programs must fit in the same, or less space as the first progran 


Because BASIC totally replaces the current program, it is not directly possible to have a single main 
program and several subroutine overlays, however, by including the main program with each overlay, the 
same effect is obtained with some loss of speed. 


The combination of the use of named files and overlays allows the writing of very large structured 
programs of appreciable complexity. 


VERIFY . Wateaer ey Se ee 

This very instruction is a special case of LOAD. It should be used after every program SAVE. 

The command causes BASIC to go through all the steps of a program LOAD, with the exception that the 
data does not get loaded into memory, but, instead, gets compared with memory. If either first or second 
pass errors occur, the PET will type out ?VERIFY ERROR which means that the program should be saved 
again before it is lost. On VERIFY, the status word has the following meanings 


* Code Meaning ee ‘ : 
4 Short block : _ 
8. Long block. oa ; 
16 Checksum error on tape | Ste Se Be 
32 Checksum ERROR on tape 
SAVE 


SAVE also performs an automatic open and close. The SAVE is specified by the statement: 

SAVE name, device number 
If the physical device is one of the two tape units, the operating system automatically initiates a tape 
header and opens a tape file with the appropriate name. The file header is written with the beginning and 
ending address. . ; 
If the device is an 1EEE-488 device, a special open message is sent indicating that the PET is sending a 
Program file. 


The program is then written directly from its memory tocations to the tape or the !EEE-488 bus. 


If the SAVE Is on tape, a checksum is computed and also saved and then the whole program is written 
again to give the redundant recording. At the end of the program, the tape is automatically stopped and 
positioned for the next data. 


!EEE-488 SPECIAL FEATURES : : ‘ bog Sod eceare 
In the tape, the program beginning and ending address are stored in and retrieved from the tape file header. 


In order to more efficiently use the IEEE-488 data, the starting address of the program }s sent as the first 
two bytes of data on a SAVE and retrieved from those positions on a LOAD, poh 
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lEEE-488 OPEN CONSIDERATIONS 


\f the OPEN command selects a device which has a value of 4 or more, the operating system assumes 
that the device is an IEEE-488 device. 


If the OPEN does not specify a file name, then nothing is communicated on the IEEE-488 bus. However, if 
a file name is specified, the operating system sends a listen attention sequence to the device number 
specified in the OPEN along with a secondary address which is the OR of hexadecimal “FO” and the 
secondary address specified in the OPEN statement. ames 


Commodore-supplied peripherals, such as the floppy disc storage system, will use this secondary 


, address and also the file name, which is then transmitted to the listening device in order to transfer data 


later to the open file. 


TAPE FILE OPERATION MODES : 
tape files can be opened for two distinct purposes: —— . ae) 
a) In order to write from the PET onto tape. : hao eth 
b) In order to read from tape to the PET. 
OPEN FOR WRITE ON TAPE FROM PET 
The flow diagram of. Figure 7.15-outlines the PET-user interaction and PET function when opening a file 
for write on tape. The initial block shows that there are two ways of opening the file: 


a) OPEN for write-data tape. 
b) SAVE-write a program tape. = 


Note that if the tape file is opened directly from the keyboard, then the message WRITING NAME is 
displayed. If the file is opened under program control, and the PLAY and RECORD buttons are depressed 
previously, then no message appears on the screen. In this manner, any display material placed there by 
the current program is not disturbed. 


OPEN FOR READ FROM PET TO TAPE 
The flow diagram of Figure 7.16 outlines the PET-user interaction and PET function when opening a file 
for reading on tape. The initial block shows that there are two ways of opening the file: 

a) OPEN for read data tape. 

b) LOAD program into memory. 


Note that if the file is opened directly, that is from the keyboard, then the messages PRESS PLAY, 
SEARCHING FOR NAME and FOUND NAME are displayed. If LOAD was used, then the BASIC variables 
of the loaded program are initialized. 


If the file is opened under program control and provided that the PLAY bution had been pressed 
previously, no messages appear on the video screen in order to disturb material displayed by the current 
program. Initialization of the BASIC variables does not occur. 
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DATA INPUT: GENERAL 
The use of the word “input” in this context implies input of data to the PET from any device. 
INPUT#-String and Variable Input 
INPUT# is the command used to initiate data transfer from VO devices to the operating system. The 
statement format is: 2 

INPUT# logical number file, A,AS,B,.BS,etc. 


Where A,AS,B, and BS are numerical and string variables to be inputted (read) from the selected logical 
file to the operating system one character at a time. 


Because the rules for the BASIC interpreter apply to these input statements, all carriage returns, 
commas, terminate fields, nulls, preceeding blanks (except in enna and other control characters 
are automatically deleted. : oe Seep 


It is not always possible to mix both numeric and alphabetic data on the W/O device. If a numeric field is 
specified, only numeric data in the standard form expected by BASIC is accepted, otherwise a 2BAD 
DATA ERROR message is displayed. — 


if there is any ambiguity about the data coming in, the user should input only to strings and then use the 
various string manipulation commands to process the data into the appropriate variables. 


Example of \nput# Statement 
If X represents a series of 50 numbers stored on a tape file named VECTOR and we assume that the PLAY 
button has just been depressed on the tape unit#1. Then the following program will read the 50 numbers 
one at a time and display them on the video Screen. 


10 OPEN 1,1,0°VECTOR” Open logical file #1. Assign file to cassette 1. Qpen tape for 
“read”. Look for physical file named VECTOR. 

20 FOR K=1 to 50 : Read 50 numbers at one time from cassette 1. 

30 INPUTH1,X ne 

40 PRINT X Display numbers on video screen 

50 NEXT K aaa ames 

60 CLOSE 1 7 When 50 numbers have been read, close logical file #1. 


GET #-CHARACTER TRANSFERS 
Not all devices transfer data in a form which is accceptable directly to BASIC. There is a series of binary 


data and combinations which BASIC ignores and although many IEEE devices do correctly respond 
with data formats which are acceptable to basic, not all do. 


In addition, in some cases, it is desirable for the programmer to have immediate access to characters as 
they are transfered to the system. GET- fetches from the IEEE-488, or tape device, a single character at a 
time, putting a character in a field specified following the GET#, THE FORM IS: 

GET# logical file, field 
TAPE INPUT 
When reading from the tape file, the data comes to the user VO independent. Each time BASIC starts on 
INPUT# or GET# from a logical device which was opened for read on tape tor 2,a special subroutine is 
called, which initiates tape input. : 


As each character is requested from BASIC, it is fetched from the appropriate tape buffer. When the 
buffer is empty, the tape input routine suspends the user program and reads the data block from tape 
into the buffer and then transfers the next character to BASIC. If a read error occurs, it is noted in the 
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status word. 


When the end of file mark is encountered in the buffer, the end of fie position of the status word is set on 
and carriage returns are forced automatically out until the command is finished. 


At the end of acommand, BASIC calls another routine which reinitializes the input to be the keyboard and 
tells the end of file operation that a conimand is complete. 


IEEE-488 DEVICE INPUT SEQUENCES 3 : 
All INPUT# of GET# commands go through the same sequence. When the command ts first encountered, 
the IEEE-488 input initiation routine is called, which sends a talk attention sequence to the device and 
- Secondary address which was Specified for that logical file in the OPEN sequence. At the end of the 
attention sequence, the PET establishes itself in a listener mode and attempts to wait fora DAV signal 
indicating a single character has been received. If the DAV is received within 65 milliseconds, that 
character is handed to BASIC and/or to the other program calling the IEEE-488 routine. Each time the 
IEEE-488 routine is called, it will go through the same sequence of getting a single character while 
waiting for a time out to occur. If the bus does not respond in 65 milliseconds, then the JEEE-488 routine 
will automatically terminate the Sequence; giving a read error in the status word to indicate that it has 
terminated the sequence. : h 


If during the course of reading the character, the IEEE-488 routine senses an EO! line, it will indicate the 
end of information in the status word and will continue to return carriage returns, until the command it 
has been currently Operating under has been terminated. At the end of the command, BASIC calls a 
termination subroutine which teinitializes the device to the keyboard and sends an untalk to the 
IEEE-488 bus, thereby, freeing the bus for the next command. 2 


+ 


INPUT BUFFER LIMITATIONS . : 
Although data is transferred from the operating system one character at a time, in order to edit, BASIC 
accumulates these characters into an 80 column input buffer. This buffer must be terminated by a 


~ Carriage return. 


On the PET, should more than 80 characters be read, the operating system will malfunction, as the 
Operating system variables are overwritten. The PET can be made to function again by switching the line 
Supply off and on. : sebShae ot, GUYS 
This constraint must be kept in mind when uSing tape and disc file systems. . Ve 

This means that Carriage returns must be written on tapes, discs, or other W/O devices in such a way that 


not more than 80 characters per field are written without being separated by carriage returns. 


“If an VO device sends more than 80 Characters, the GET command can be used to build your own string 


without running into the buffer limitation. 


wo 


DATA OUTPUT: GENERAL i 

The use of the words “print” and “write” refers to data Output from the PET fo any device. 

PRINTH 

The command PRINT# must be followed by a logical file number, and then a comma to separate the data 
that would follow PRINT: . : z 


PRINT# logical file number, data 
Data is transferred a Single character at a time to the physical device correlated with the logical file 
~ ecified in the relevant OPEN statement. Many of the file delimiters such as commas are automatically 
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deleted by BASIC; aithough this does not greatly effect the printing, it should be remembered that when 
reading back from tape or another /O device that file delimiters must be forced. This forcing can be done 
by inserting a CHRS$(44) or “,” between fields or by only printing single fields in each PRINT# statement 
which will force carriage returns between fields. Example: 
instead of writing 
PRINT#LF,A;B$;C$ 
which will be sent as. Day yet arthage sh ae, Seah 
ABSCS. ree ier Se co beth t, Gade 
with no delimiters: 
PRINT#LF,A iCHRS(44)BS;CHAS(44);C$ 
or ie eee Ved th ogee od pease es, 
PRINTHLE,A",”:BS; “Cg Engen gph oa 
which will output: (Note: CR means carriage return) -. 
A,BS,C$,CR ae cb tgpibee 
or: tet, 
PRINT#HLF,A 
PRINT#LF,B$ a Sue cee A Sen te OSES : re ; 
PRINT#LE,CS Mea a ge ee ae 
which will output: te # ee ‘ 
A CR BS CR C$ CR 








Because BASIC always formats outputs to any devices as though it were outputting to the screen, 
PRINT#LF,A,B has several skip characters between the values of A and B, while A;B does not have any 
extra skips. ‘ 


An exception to this rule is the tape where the first skip on output is supressed. |=. 


Note: Although both the INPUT# AND PRINT# commands operate in virtually the same way as their 
equivatent INPUT and PRINT statements do in BASIC, the abbreviated command ? which can be used in 
place of PRINT, does not apply to PRINT#. ?# and PRINT# are recognized and reduced to two different 
token characters when processed by BASIC. ?# will look like PRINT# when listed but gives 7SYNTAX 
ERROR when an attempt is made to execute it. 


Examples of the PRINT# Statement . ; 
This program will print the series of numbers 1,2,3...50, one at a time on a PET printer. 





Sue. OF 1OOPEN 5,4,0 Open logical file #5. Assign logical file #5 to device #4 (PET 
on ene printer) in normal print mode corresponding to secondary 
address “0”. 
20 FOR K=1 to 50 Print the series of 50 numbers on printer. 
30 PRINT#5,K Hi 
40 NEXT K is weer Str or be toy tat tae et 
50 CLOSE 5 Close logical file #5. 7 


To write the above series of numbers on a cassette in tape unit #2, only the OPEN tine would have to be 
modified, if the same logical file numbers were chosen: 


10OPEN 5,2,1 : Open logical file #5. Assign logical #5 to device #2 (tape unit 


_ #2) with a write without “end of tape” designation 
corresponding to secondary address ‘1’. 
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20 FOR K=1 to 50 Record the series of 50 numbers on tape. 

30 PRINT#S,K . 
7 40 NEXT. K 

50 CLOSE 5 Close logical file #5. 


~ In the above cassette example, the data would be accumulated in a 192 character buffer one character at 
atime. When the capacity of the buffer is exceeded, then data entry is suspended, the tape started, and 
the buffer contents written to tape. The buffer is initialized to accept up to 192 characters and then the 
program is allowed to proceed. eh : 





IEEE-488 BUS OUTPUT 
The PRINT# command causes BASIC to call an output subroutine which initializes an 1EEE-488 device for 


output. The first step in the command is that the PET reassigns its normal output from the screen device 
to the physical device that was chosen for the logical! file in the open routine. A listen command is sent on 
‘the IEEE bus to the physical device and a secondary addressd specified for. that togical file in the OPEN. 


BASIC then hands one character at a time to another subroutine which proceeds to transfer that 
character over the bus with the PET acting as a talker and all addressed devices responding listeners. 


i 
When BASIC has finished the PRINT#, another subroutine in the operating system is called and the PET - 
sends an “unlisten” command to the entire bus and restores the primary address to the screen. This frees 
the whole bus for the next operation. , . 


This unlisten sequence also sends an EOI signal on the bus, along with the last character sent from 
BASIC. To accomplish this, each character is stored in a buffer prior to transmission Ry the IEEE routines 
and the previous character is sent. . 
- CMD COMMAND : 
Normally, each print command daale erly with one logical device and at the end of the command entire 
bus is unlistened. In some instances, it is advisable to have more than one device on the bus; in order to 
facilitate this, the special command CMD is provided. CMD is virtually identical to PRINT#, except that at 
the end of the data transfer, the unlisten routine is not called, thereby leaving the device on the bus as 
a listerer. : SP die why Wet RAR. A, Ren ee tee ae ey 


ar aa fa yo Be 8 ae acy 


The operating system continues to treat the last device to be commanded by the CMD as the primary 
output device for BASIC. PRINT or LIST commands are then directed to this primary device, rather than to 
the video screen. More specifically, the CMD of the printer device, followed by LIST, results in hard copy 


pe ee ee ee ee ee es ee ee Se 
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printed listing, instead of 2 video screen listing. However, since neither the CMD nor LIST command 
terminate bus operation for the device, a PRINT# is required to terminate a CMD command. 


Examples of a CMD Command 


OLR eter An nS BNR 
t 


To list: oe 

OPEN 3,4 where 4 is the printer device number: --.’ ~ 

CMD 3 3 

UST . will tist just the same as the screen, eneert, on the pHatee: 
to print and write a disc at the same time: : 

*CMD 3 where fogical file 3 is open to the printer. 

PRINT#15,A,B,C where 15 is the floppy disc logical file number 


(previously opened). were 
will result in A,B, and C being stored on the floppy but also being displayed on the printer. 


To monitor an input device: _ 


**CMD3 turn on printer . ; 
INPUT#15,A,B,C read from floppy 
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This will result in the data from the floppy being transferred to A, B and C but also being printed as Mey 
are being transferred. 


" CLOSING FILES 
Any logical files which have been opened during a program should preferably be closed when no longer 
required, and in the case of tape or disc files, must te closed before the Program ends. The following ° 
should be kept in mind: 

a) If the total number of logical files currently exceeds ten, then Ipas of 
PET operation will result. : . 2G 

b) If a logical file assigned to a tape unit is not closed, no “end of file’. - - 
mark will be recorded at the end of the physical tape file. ifthistapeisthen ..- - 
loaded into memory, the PET will have no way of knowing the file has 
ended, and if the unwanted and erroneous data is present from a- 
Previous recording, it will also be read into memory. . 


EXAMPLE OF A CLOSE STATEMENT 
To close any file, the following simple statement is sufficient:. ... DUsep Rr raya pate 


MET os 





CLOSE logical file - bs 0%. Ue bass 
If it is required to close logical file number 5, then this becomes: © -<: ~ SAD Pr ds 
CLOSE 5 


TAPE FILE CLOSURE 
If a file had been opened on the tape, there are two operations that occur: an “end of file” marker is 
recorded in the next data character, then the tape buffer is forced out onto the cassette. 


\f during OPEN the “end of tape” option was chosen, an “end of tape file” header block is also 
forced out on the cassette. 





“Must be given each time because PRINT# untistens the bus. 
“Need not be given each time, more code can be included between instructions. E ‘ > 
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| JEEE-488 NAMED DEVICE CLOSURE : 
For 1EEE-4888 devices, which were opened with file names, a special listener command sequence, 
|: with the special secondary address of thehexadecimal EO OR’ed with the secondary address from the. 
OPEN is sent. This allows devices such as disc files to be closed by the peripheral controller. 
7 "ERROR DETECTION: GENERAL : 
s The basic concept of the PET operating system is that the user will be allowed to operate in a free-form 


| format; reading and writing on tapes, discs, and printers, in the manner that is most comfortable for him. 
] Because W/O is totally free-form, it is most important that the operating system should have means of 


r - informing the user when transmission errors or end of data conditions occur. 
L STATUS WORDS Be "eee 
] In order to facilitate INPUT/OUTPUT operation error detection, the PET uses the "status word” conceptin 
which a byte in memory is manipulated by each of the I/O operations for the PET, and can be sampled by 
the programmer at any time by calling the function ST. Each bit in the staus word has a general meaning 
] for all operations and a specific meaning for the individual I/O device. not 


“Apt 
aseneed 


Table 7.17 shows the errors as a function of the ST word value for the tape cassette units. IEEE read/write 
operations, tape verity and load operations. cote 

















st $T 
Bit Numeric 
Position 


Cassette 
Read IEEE RAW 
Time out 
on write 
Time out 
on read 
Short block 


Long block 


Unrecoverable 

tread error : 

Checksum 

error error 


End of tape End of 
tape 


Table 7.17. Status Word (ST) values correlated with ooo 
tape cassette, unit and IEEE bus read/write errors. 


Pe ed 













mismatch 






ied a 








Checksum 





Device not 
Present 








tEEE DEVICE ERRORS 
There are basically three errors that can occur during an 1EEE-488 transfer. First, the entire bus does not 


respond to an attention sequence. If this occurs, the IEEE-488 subroutine sets the DEVICE NOT PRESENT 
J bit (7 or -128). The PET also terminates the current program with 7DEVICE NOT PRESENT ERROR. If the 
i bus responds correctly to the attention, but when the PET goes to write the first character to the bus and 
] the physical device is not present as indicated by having NRFD or NDAC fow, the PET, again, gives a 
device not present indication. . 


ee ed 


| . The second error occurs during the process of transferring data to the device. The bus does not respond 
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Spee ghy block. Possible cause: attempting to read a short load file as a data record. 


in the appropriate times and/or if it ceases to respond by means of bringing NRFD and NDAC both high, a 
write error indication is given in bit 0. 


The third error occurs when during read on an I[EEE-488, the IEEE device has not sent DAV in less than 65 
milliseconds; bit 1 of the status word is then set. Whenever the EO} line is encountered, the subroutine 
sets the bit 6 on in the status word and continues to force carriage returns. 


TAPE UNIT ERRORS ‘ ' Maen so 
The cassette only checks data on read. The ¢ errors deleted are: boot : € 


1) SHORT BLOCK (4).When reading a block from tape, a spacer tone was 
encountered before the expected number of bytes has been read from that 


2) LONG BLOCK (8).When reading a block from tape, a spacer tone was not 
encountered after the expected number of bytes had been read from that =. »: 
block. Possible cause: reading a long !oad file as data. Mee ag on tes 


wie 3) UNRECOVERABLE READ ERROR (16).Cause: more than 31 errorsonthe” =": 
first block of redundant blocks-or an error that could not be corrected 
because it occured in the same place in both blocks.. 


4) CHECKSUM ERROR (32).After a LOAD or reading of data,achecksumis _ 
computed over the bytes in RAM and compared to a byte received from the 
input device. If they Jo not match, this bit is set. 


5) END OF FILE (64).This bit is set when the end of data file mark is 
encountered in a tape record. 


6) END OF TAPE (-128).An EOT ieearasiat read. 
EXAMPLES OF ST USE 
As you can see, there is no status that the PET detects for the writing of tapes, nor errors detected for 


printing to and reading from the screen. There is an error on writing data out to the IEEE-488 and there is 
also a series of errors detected on inputting from the IEEE-488 or from tape. 


The normat programming technique is to follow INPUT# or a GET# by either a test or storage of the vatue 
of status. As this is only a single byte of memory and the status changes on each new I/O command, the 
Status is very transient. 

100 INPUT#2,A 

110 INPUT#5,B mes 

120 IF ST =0 THEN 200 





This code only checks the result of the transfer of data from logical file 5. Wie results of reading logical 
file 2 is forever lost. Similarly: 

100 INPUT#2,A : 
oe HOPRINTA 9 
120 IF ST=O THEN 200°” 


In this case, the ST reflects the print status, rather than the results of reading #2. 


PORWD WO Hol ta tno aes tf 


TESS 





meee * 





A correct way to use ST is the folllowing:. 
100 INPUT#2,A,B,0 





110 IF ST =0 THEN 200 _ Process normally 7 
120 IF ST =64 THEN 300 end of data processed with no errors 
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] 130 IF ST =2 THEN 400 time out with no errors - Ge gabon maze ae ae 


Each error can now be processed with the following: = - 5. A ase 
ie 140 IF ST AND mask THEN Mask represents the bit being tested . ecsg 


POLLING TECHNIQUES _ 
~ One technique to poll slow IEEE-488 devices such as sampling devices, which take many minutes to 


respond, is to use the INPUT# from the device; then if the status indicates time out, process other 
7 routines or loop on the INPUT # until no error occurs. If there are no errors, the correct data has been 


finally read and one can process that data information. 


t By using this sampling technique, a whole series of slow devices can be serviced, along with running a 
] foreground program by use of the real time clock (TI,TIS) and the INPUT#/timeout error sequence, to * 
r occassionally poll devices. ses . 7 


7 DEFAULT PARAMETERS Penge 


‘Default Value’ 


Secondary On tape files open for read 
address : On !€EE-488 devices, no 
: secondary address is sent. 








Default Operation 





Cassette =1 selected 








Table 7.18. Default values. 


“&; L. are | be Pe j i i 








i Ld 


10 


] INTRODUCTION 1 TO THE IEEE-488 BUS 
; This bus consists of 16 signal tines that are divided funatlonalie into three groups, those are: 


Equivalent 
Statement (Default) 
Parameter Values 


OPEN 1,1,0 


OPEN=1,2,0 


Operation 


Open logical file =1 for cassette =) read 
no file name 


Open logical file =1 for cassette +2 read 
no tile name 





could Mad OPEN=1,2,1 _ 
OPEN 4,2,1, OPEN=1,2,1, 
“DAT “DAT” 


Open logical file =1 for cassette =2 write 
no file name 





Open logical file =1 for cassette =2 write 
file named “DAT” 








Table 7.19. Example of default parameters. 


a) The data transmission bus 
2) The control bus 
3) The management bus 





atpme epay itd 


| Furthermore, the IEEE bus can support three classes of device: 


a) Talkers: at any given moment, only one device is permitted to transmit. «© ~*~ 


data to the data bus. 


b) Listeners: as many devices as required may receive data 


simultaneously from the bus. 


c} Controller: the PET is the on/y controtter allowed on the {EEE bus. 
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BUS/DEVICE CONTROL i Sige ae oe : : 
The line-pin connections forthe 12 position, 24 contact edge card connector, emanate from the PET main 
assembly board (see Table 7-19). For further information, please refer to Figure 7.2 
Certain physical limitations should be noted when connecting devices 1o the IEEE bus: 
: a) The maximum advisable bus extension from the PET is 20 meters. wees 
b) The maximum interdevice spacing is 5 meters. aes hy reap ae 
c) The maximum number of devices is 15. oe Te ating 


PET PET : 
Contact Contact Label 
eres , identifi- identifi. Descriation 
i eation cation 





” Data INPUT/OUTPUT LINE #1 ieee \ 
Oats INPUT/OUTPUT LINE a2] ..- : 
Data INPUT/OUTPUT LINE =3 
Data INPUT/OUTPUT LINE 4 





| 5 | MANAGER End of identify 


TRANSFER . 
low. | ‘ Not ready for data 
NOAC Data not accepted 


MANAGER Interface clear 
Same as PET reset 
Service request 
Attention 
Chassis ground and IEEE 
cable shretd 





Data INPUT/OUTPUT LINE =5 
Data INPUT/OUTPUT LINE =6 
Data INPUT/OUTPUT LINE 37 
Data INPUT/OUTPUT LINE =3 


GROUNDS .| GNO6 DAV ground 
GND? NFRD ground 
GND8 NDAC ground 
GND {FC ground 
GND10 SRQ ground 
GNO11 ATN ground 
LOGIC GND Data ground (D101-3) 








‘Table 7.20, IEEE bus group, label and contact Identification number. 


THE DATA BUS eta AS eae R ag Sons 

This bus is comprised of 8 bi-directional lines that‘transmit the active low data signats D101-8. The 
slowest device in use on the bus at a given time controls the rate of data WSASIEr the mode of transfer is 
one byte ata time, bit paraltel. «'" . oe : 


Peripheral addresses and control information are also transmitted on the data bus. They are 
differentiated from data by ATN (true) during their transfer. 





The most significant bit (MS8) is on line D108. . Ace : ; 
For an explanation of signal abbreviations doen as D!-08, see e Figure z. 23. anes : 
Data Transmission Modes eel te. Aa Sh 
All possible bit patterns are valid on the data bus when sending data to devices. 


THE TRANSFER 8US er; 
This three tine bus controls the transfer of data over the data bus. The signals transmitted are used in 
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the handshake procedure outlined in 7-21, 
These signals are: - 
&) NRFO Not ready for data 


6) NDAC Data not accepted 
¢c) DAV Oata valid 


A 


f 


Note that the tatker originates the DAV signal and the listeners the NFRD and NDAG signals. 
See Table 7-23 tor detailed description of signals. * i : 
The Handshake Procedure ens ack : 
-When a talker transmits a data byte to one or more listeners, this control procedure is used in order to 
ensure that the operation is successful. 
‘The essential function of the handshake is to ensure; Can: As 


a) All listeners are ready to accept data. — ee 
b) That there is valid data on the data bus. 
¢) That the data has been accepted by all sienerse: 


The transfer of data occurs at a rate determined by the slowest active deviee on the bus; this allows the 
Interconnection of devices which handle data at different speeds. 


The sequence of events that occur during the transfer of a data byté from the talker to the listeners is 
shown In the flow diagram of figure 7-21. 


an a 
aan eis H 
a _ Not Greater than 64 msec. 
Histdentterte _ Ready for Data 
NRFO ia - Not Ready for Data 
{Listener} (1) wl H 
rl 
x rl te! gs 
hea it and 
: Dav i ; Data Not Vatd =~ : 
vt, {Talker} aa! Li J —__~SsCOatta Valid Re oat ois WA ale 
Ths, : 3) 146) . ad 
: : \ Data Accepted 
NDAC ! Data Not (Being) 
{Listener} 1 (5) 7) Accepted 
Ree 1 
1 
' —— Bit Value=2 
Dare Bus High Impednree 
Borat (2) Bit Vatue = 4 


Data Signal 
Settling Interval 


Figure 7.21. Transfer bus handshake sequence. . 3 . 
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COMMENTS: TALKER 














LISTENER COMMENTS 
Data on Not Ready 
Data Bus NRFD —» Low for Data 
Not Valid NDAC — Low Data Not 
Accepted a 
© is 
NRED and Ready to | 
NDAC High Accept Data 
AN’ 
Listeners 
(hee See irae Seka H Ready : 
All 
eo wed ot Listeners | 
are Ready 
for Data 
Data is vie 
li 
Valid Data Valid 
Not ready 
for Data 
Data 
Accepted | 
Data Not 
Valid | 
Data Not 
Accepted 
i 
Figure 7.22. Sequence ol events during a data byte transfer from the talker te the 
Ustners. Broken lines indicate the testing of transfer bus signal logic levels, 
Sa mar atta ta cee amen SONG OTE Bei a ii ee ee SE 
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1 
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Invalid. 


[ 


See Table 7-24, 


Soh ag a Se 


a) ATN 
b) EO! 


c) IFC 


d) SRQ 


e) REN 


Sand he) Se Led 


{tee 


PETHEEE Bus Timing Constraints 
The following limitations should be noted in order to avoid a loss of data: 


THE MANAGEMENT BUS 
This group of five signal lines controls the state of the data bus and defines its signals; these can be 


concerned with data, addresses, or control information (device commands). 


The five management signals are: 


Attention 


End or 
identify 


Interface 
clear 


Service 
request 


Remote 


I 


enable 


Figure 7-22 shows the relative timing of transfer bus signals during a typical handshake; the bracketed 
numbers in the following sequence refer to the changes in signal logic levels In the Figure: 


1) NRFD.goes high (false) indicating that all listeners are ready for the 
next byte of data. 
2) The talker puts the next data byte on the data bus and allows the data 
signals to settle. This could happen before, after or during (1). 
3) The talker tests NFAD, when it is found to be too high, the talker makes 
DAV low (true)to inform listeners that the bus data is now valid. 
4) As soon as a single listener detects that DAV is low, that listener sets 
NRFD low; data is now accepted by all the individual listeners at their own 
rate, each of whom release NDAC as they accept the data. 
5) NDAC goes high sd when the slowest of the listeners have accepted 
the data. 

6) The talker sets DAV Nalgh Melee) aero that the bus signals are now 


7 The fisteners note that DAV has gone high and sets NDAC 
low (true) completing the handshake. When each listener has processed 
the data, they release NFRD. This terminates the sequence for the first 
data transfer. The sequence will repeat again, beginning at (a), until all 
required data transfers have been completed. 


a) When PET is a listener, it expects DAV to go low within 64 milliseconds 
after it has set NFRD high. 
b) When PET is a talker, it expects NDAC to go high within 64 milliseconds 
after it has set NRFD high. 


If these limitations are exceeded, the PET ceases to transfer and sets the appropriate status word (ST). 


barn? 


Assigns devices to act as listeners 
or talkers. 

Indicates that the last data byte is 
being transferred. 

Initializes the data bus. Talkers and 
listeners set idle. Same signal as 
reset in the PET. 

Device tells controller that service is 
required. Not impitemented in BASIC 
but available in PET. 


Permanently tied to ground in the 
PET. 





_ IEEE SIGNALS AND DEFINITIONS: =: ‘ Fy SS SA oe 
.. wJ,.. The 16-transmission fines ofthe EEE-488 bus are each sasha a spatific ‘signal. jee: es ives the” 
~~ bss group .amey abbreviation and -tuactionat description tor each of these sigials. = 
LOGIC LEVEL CONVENTION 


The “true” or logical “1"is fow with common collector type outputs. This allows any device to hold the 
bus in the “true” or logical “1” state. 








i 
! 
i 
i 


Transfer DAV 


Manager 


Manager 


Transfer 


Transfer 


Manager 


Table continued on next page, 


Attention 


Data Valid 


End or 


Identify 


Interface 
Clear 


Data Not 
Accepted 


Not Ready 
for Data 


The PET (controller) sets this 
signal low while it is sending 
commands on the data bus. 
When ATN is low, onty periph- 
eral addresses and control 
messages are on the data bus. 
When ATN is high, only pre- 
veiously assigned devices can 
transfer data. 


When DAV is low, this signi- 
fies that data is valid on 
data bus, 


When the last byte of data is 
being transferred, the talker 
has the option of setting EO 
low. The PET always sets EOI 
low while the last data byte is 
being transferred from the 
PET. 


The PET sends its internal re- 
set signal as IFC low (true) to 
initialize alt devices to the idle 
state, When PET is switched 
on or reset, IFC goes low for 
about 100 milliseconds. 


This signal is held tow (true) 
by the listener while reading, 
When the data byte has been 
read, the listener sets NDAC 
high. This signals the talker 

that data has been accepted, 


When NRFD is fow (true), 
one or more listeners are not 
ready for the next byte of 
data. When alt devices are 
ready, NRFD goes high. 





Service 
Request 


Remote 
Enable 


Table 7.23. |EEE-488 bus signal. 
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Not implemented in BASIC, 
but available to the PET user. 


REN is hetd low by the bus 
controller, The PET has a pin 
grounded that keeps REN. 
permanently low. a 





2 Pediat = i a a 7 —— S aaemataentin 0 ssaeienasiine cxaeteen. adinetaectikr corcaeaeaenenmmearicimeaae 
nati See te tet an a -  aaR aerate ECE 8 re Tn em ene ee ear: 7”! “sere 
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Table 7.23. IEEE-488 bus signal (continued). 


Signa! Functional 


pity 


Abbrev. Name Description 


. 





Data input/ These signals represent the bits 

output tines | of information on the data bus, 

Vthrough 8 | When a DIO signal is low, it 
represents 1 and when high @, 


wees 


| 


- Ground connections: There 
are six control and manage- 
ment signal ground returns, 
one data signal ground return 
and one chassis shield ground 
leads ~ 


pete 


rc 


Let bed 





STATUS WORD (ST) ‘ : : 

ST is a BASIC variable which can be used to check the outcome of INPUTIOUTPUT operations. ST can 
have certain values over the range -128 to 127. Table 7-24 shows the status code that appertains to the 
IEEE-488 bus. : 


{4 


Explanation 





1 r 


Time The IEEE device has not responded within the 65 
out on milliseconds time out inverval. 
listener 





Time. The FEEE device has nor provided an active “data 
out on valid’’ signal (DAV low) within the 65 miltisecond 
talker time out interval. 


a ' 


End or EO! has gone low (true), on-the fast byte of data 

identify being transferred on JEEE bus. Note that all devices 

({EOt} do not generate an EO! signal. Consult relevant 
2. -f-. instrument manual, _ 


Device Device did not respond when addressed; this gen- 
not erates an error message and the operating system 
present returns the PET to BASIC command level. 





on 


Table 7.24, ST status code for IEEE-488 bus. 


JEEE-488 REGISTER ADDRESSES z 
Table 7-24 shows the IEEE-488 hardware addresses for the PET. An attempt to control the bus by means 


of the PEEK and OMe commands will fail, if the time out intervals for the 483 devices are exceeded. 
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Chapter 8. USE OF THE PET FOR MACHINE LANG UAGE PROGRAMMING 


Machine language programs execute much faster than do BASIC, programs. which have to be Interpreted 


- first then executed. On PET, machiné ianguage can be used to communicate with the user port, play 


music, or write the screen memory with blinding speed. If you have never programmed the 6502 


microprocessor, it is probably advisable that you get hold of the two books mentioned in Chapter 1 
before you proceed with this chapter. 


In PET there are two ways to create a machine language program in memory and execute it. The first is by . 
BASIC. As previously discussed, there are two BASIC commands, PEEK and POKE which give equivalent 
machine language operation relative to controlling input/output instructions or influencing or sampling 
Individual memory locations. The second method to program is by a monitor. 


A monitor essentially has only three functions: examine and deposit bytes in memory, and branch to 
execute code. These functions are available as PEEK, POKE and SYS in BASIC. The chief limitation of 
BASIC is that all bytes must be converted to decimal before use. A monitor available for PET allows one 
to work entirely in hexadecimal notation but the 6502 does not care what base you work in because all it 
sees is binary. The PET monitor does have some other useful features which we will discuss iater. 
MACHINE LANGUAGE PROGRAMMING FROM BASIC 

It is possible to build into a string of memory locations by means of a POKE command, a set of 
instructions which are a machine language subroutine which is usable by an individual program. To 
implement these subroutines, there are four basic considerations: (1) what the subroutine is supposed to 
do, (2) how to implement it, (3) where to put the program, and (4) how to communicate the subroutine from 
BASIC. The decision on what the Program is to do and how to implement it is left to the Programmer and 
the programming manual (6502). 


To locate the code, you must decide whether you have a small Program that is ta be used only temporarily. 
or whether it is a program you want to have operational throughput the entire time the BASIC program is 
operating in the machine. 


To understand how best to keep the program in memory, wé should review the memory map of the PET. 
All the zero page programs address are consumed by the operating system and are usually being 
changed throughout the programs. Between the normal use of stack and tape /O corrections, all of page 
Tis used. Page 2 has a series of variables which are again used throughout the program. However, 
memory locations 634 through 1023 are used for the first and second cassette buffers. Ifa program is not 
using tape I/O, then these areas will not be touched by BASIC. 


If only the first cassette is used, the second cassette buffer is available. If both the cassettes are used- 
during the program, or if this area is not enough into which the user is to write some code, then the space 
between the end of the BASIC program and where BASIC stores its variables is the space thatis available 
fo the programmer. At any time during execution of the program, @ PEEK into location 124 and. 125 
indicates the beginning location of the BASIC variables. Working back down these with a small safety 
margin which is proportional to the amount of data space that is used in the program, is a memory area 
which is not affected by BASIC during execution. These are memory locations which are counted by the 
FRE statement. Once programs have been written and debugged, this space is as useful as are the 
cassette locations. 


The fina! problem is how to get the program into the memory location. Although by use of the machine 
language monitor, machine language programs are loadable, this involves a two-step process for the 
user. First, the machine language program must be loaded, followed by the loading of the BASIC 
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program. Obviously, this technique does not work at all, if the proqram is to be loaded into the cassette 
buffers. Another technique is to assemble the Program, into the BASIC program, by means of putting the 
machine language program into data statements. The data statements can then be read at the beginning 
of the execution of the BASIC Program and POKEd into the appropriate memory locations. 
SYS COMMAND : 
When it is necessary to transfer control to the machine language Program, there are two ways to do it. 
The preferred approach is the SYS command which transfers contro! totally from BASIC until control is 
returned by means of a routine from subroutine instruction. It can be used to transfer control to any other 
Program such as a machine language monitor or future languages when they become available. If the 
following code is encountered ; ° : 
. ‘ 10 SYS (634) PR .theg ts fis ams ca4l 
at Line 10, BASIC will hand control of the computer to the program located at 634. The general format 
for the SYS command is ED Ae Be 


SYS (start address) 


The start address can bea computed value, in either case, it must result in a Positive number not greater 
than 65535. NOTE: Execution of machine language code, removes almost all protection that the ROMs 
has built into it to allow the BASIC interpreter to continue functioning without regard to user error. AS 
Soon as you transfer control fram BASIC to your own program, any mistakes which occur in your program 
may cause the machine to cease to function. \n order to help solve this type of problem, you should use 
the machine language monitor to develop anything other than the most trivial amount of code. In any 
case, when control of uystem is lost, it can be regained by repowering the system on. 


In order to return from the SYS command, the fast instruction in the program, which is executed, should 
be a ATS instruction. BASIC will then start interpreting the next statement after the SYS command. in 
order to pass the variables of data back and forth between thé user program and BASIC using the SYS 
command, data has to be POKEd into temporarily undisturbed memory Jocations during the execution of 
the BASIC routine. The results of the SYS. operation would have to be PEEKed back into the program that 
follows the call to SYS. é a Pas cn 2 
USR FUNCTION 

There are some programs, particularly mathematical ones, in which it is easier to pass parameters 
to/from BASIC using the USR function and to get the results directly processed in BASIC. USR is 
specified with a parameter. BASIC evaluates the expression for its parameter and leaves the results of 
the evaluation in a floating accumulator which BASIC uses for all of its functions. It is notedthat if no 
parameter is passed, the floating accumulator is not initializeable by the user or by any other techniques 
as it is used by BASIC ina variety of ways prior to executing the USR function. 


USR calls a routine, which executes a machine language program. A result in the floating accumulator to 
be analyzed by the BASIC expression. Because USR is a function, it is possible to include the function 
called user as part of a BASIC instruction as in: IF USR (A)= 1, THEN etc. In this case the parameter A 
will be passed to the USR function in the floating accumulator. The resulting floating accumulator, when 
the user returns to BASIC, would be compared to 1 and the logical function would be executed. 


The SYS command is more usetul for transferring control for machine Janguage processing in which 
variables are not being acted on. USR is more useful when one is trying to implement a new BASIC 
command. This is an important consideration in using USR. USR uses preassigned variable locations: 
‘ocations 1 and 2. These locations must be initialized with the hexadecimal value of the Starting address 


“in which the machine language program is stored. This can be done anywhere throughout the Program 


t 


nome ener nan 


with a POKE of the decimal equivalent of the. Jower, address to location 2 and POKE of the:high order ad-. 
dress in location 2, Example: 


10POKE 1,122 Shi eet: 0 wee Pus 

20POKE 2,2 a. ee es 

30 IF USR (A}= 1 THEN etc. 
USEFUL BASIC SUBROUTINES 
There are a series of subroutines in BASIC which can allow the machine language program to evaluate 


values in the floating BCOUInE EIR, These functions are called jump to Subroutines instruction (JSR) to 
the address. 


The parameter specified in the USR functon is evaluated, converted to a binary floating point equivalent 


with signs, exponent, and mantissa, and placed in a series of 6 bytes which we will call the floating 
accumulator 
$5E sign and exponent 
S5F mantissa MSB : 
$60 mantissa a ee a MR AER go 
$61 mantissa 
$62 mantissa 
$63 mantissa LSB 
$64 sign of mantissa 


The exponent Is computed such that the mantissa 0=1x 1. It is stored as a signed 8 bit binary + $80. 
Negative exponents are not stored 2's complement. Maximum exponent is 10%. Minimum exponent is 
10° which is stored as $00. A zero exponent is used to flag the number as zero. 


valsthape Exponent Approximate Value. phaet 
ager FF 10° 

a A2 . 10° PRIS, ta bP ha A OLS FR BESS 
obey bee $23 TF 107! 
hy is 1 02 . 107% aha oot bao fee 8 
hm Bas 00 1073 so fepea bets 


Since the exponent is really a power of 2, it should best be described as the number of left shifts 
_ (EXP>$80) or right shifts (EXP< = $80) to be PeLoried on the normalized mantissa to create the actual 
binary representation of the value. 


Since the mantissa is always normalized, the high order bit of the most significant byte is always set. 
This guarantees always at least 40 bits precision which is roughly equivalent to 9 significant digits plus a 
few bits for rounding. If a number has a value of zero, itmay not always have zero bytes in the mantissa. 


The only true flag for a zero number is the exponent. See Figure 8.1 tor example exponents and 
mantissa’s. 


lf the mantissa is positive, then the sign byte is zero - $00. A negative mantissa causes this byte to be 
-1--SFF. 
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f EXAMPLE FLOATING POINT NUMBERS : 
“Ty " 1638 «FF 96s; 99 52 00 
4E10 A 95 02 FS 00 00 : 
ip gs 2E10 = AS 95 02 F9 00 00 
| 1E10 = A2 95 02 FO 00 00 
Te —> 1 BI 80 (cc ne 0 00 00 
; 5 80 80 00 00 00 00 : 
. ] 25 7F 80 00 00 00 00 seca p eg 
af ~ 164 73 D1 B7 .. 59 .-: 59 00 
J 1E-37 06 88 Ic 14 14 00 
cael 16-38 02 D9 C7 EE EE 00 2 
i 1E-39 00 AO 00 00 ~—-s00 oo 


td 
° 


- 00 00 oc 8 8=€6©600——éD 
-1 81 80 00 00 00 
-10 84 AO oo . 00 00 


4 
nn 7 
cc) at 


=4 
4 


fe. 


4 
tH tt 


40 bend 
Pes 
f 


exponent 
mantissa 
mantissa 
mantissa 
mantissa 

" Sign of mantissa 


Nee 


t 








' Figure 8.1.Example floating point numbers. 8 RS eS 


Actual floating point BASIC variables are stored in 5 bytes, rather than 6 bytes as is the floating 
accumulator. Upon examination, one will note that the most significant byte of the mantissa is always 
set. If we always assure the number will be in this format, we can use that bit to indicate the sign of the 
mantissa ~ thus freeing the byte used for sign. The sixth byte is used in the floating accumulator to 
simplify operations when shifting the mantissa. 


il 


The contents of the floating accumulator may be converted to a double byte integer by calling a 
subroutine FLPINT which is located at SDOA7. The most Significant byte of the integer is returned in $83 
and the least significant byte in $B4. - eae - 


ene 


eg : 

: 10 A=USR(2) 

contents of FAC after USR call 
82 80 00 00 00 00 


JSR FLPINT 
contents of FAC after conversion . Wb liebe qat tare fe oer h, 


oe.) g2 00 00 00 00 


integer value 


Po ara 


It is not necessary to return a value in the FAC after a USR call. The value of USR can be left as just the 
--, current contents of FAC. An integer can be converted back to floating by ioading the. ESS significant 

byte into index Se calling INTFLP at $D278. — -- tn ee as ae Phd cork alae 
] ath The Most ate. Batt vata, oesiawiledont ie 


Siento cgliieeiame.-. maecten ae ceenenemeened es > ER NAO etn en re ernie eonee ne 





vee ncee en rere en ate Mees aptente ge at 


_ &g- LD AMSB. Te Cr ae oe ih z 
LDY LS8 F _ , 
JSR INTFLP 


USEABLE I/O ROUTINES 


Read a line, pass a character zi a ae 
SFFCF return char in 0 : : 
no other regs changed ea " = 


Print a character on screen 
$FFD2 Char in A © 
no regs changed ed ae fated 


ne wy rosy rt eg % 


Test for stop key ; 
SFFE1 returns =, <> 
only A changed 


.) 
> 
ee 


Get a character from keyboard 4 et fe ae ‘ca 

SFFE4 

char or if none then null (00) 
SUMMARY 
There are two ways to communicate from BASIC to machine language program. The simplest of these is 
SYS in which the contro! of the computer is turned over to the machine language program located at the 
address specified in thesys command. For implementing your own functions in BASIC, there is a function 


_ called USR which when memory locations of 1 and 2 are properly initialized to point in a machine 


language program, evaluate a parameter specified in the user function and pass the results back to the 
program using the floating accumulator. A series af useful subroutines, available in BASIC, can allow 
either the USR or SYS function to perform operations on the floating accumulator without the user 
running any program other than the calling routines. 


In all cases, the use of the machine language program is only for the more sophisticated BASIC user. 
The protection of the ROM fail sale coding is lost. Machine language programs should only be used when 
BASIC is neither fast enough nor the function whigh is desired is implemented. 


MACHINE LANGUAGE MONITOR 
TIM is the Terminal Interface Monitor program for MOS Technology’ s 65XX microprocessors. It has been 


expanded and adapted to function on the Commodore PET. PET uses a cassette tape version of this 
monitor. Execution is transfered from the PET BASIC interpreter to TIM by the SYS command. 


To LOAD your MONITOR, take the cassette with MONITOR and put it in the tape unit with the MONITOR 
side up. Then type: LOAD “MONITOR” and, when ready, RUN. 


Commands typed on the PET keyboard can direct TIM to start executing a program, display or modify 
registers and memory locations, and toad or save binary data. On modifying memory, TIM performs 
automatic read after write verification to insure that addressed memory exists, is R/W type, and is 
responding correctly. 


TIM also provides several subroutines which may be called by user programs. These include reading and 
writing characters on the video display, typing a byte in hexadecimal and typing a CRLF sequence. 
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TCE 4 Raia ERIE Nice daaate eepuemteemeimaalinnionrooatceannatiantscaeameamimmantasimenemmtamatanemaee te 


TIM COMMANDS 
display memory 
display register 
begin execution 
exit to BASIC 

load 
save 


arxKone 


EXAMPLES 


M DISPLAY MEMORY , : 

-M €000,C010 ce ae ee ae rae 
. C000 1D C7 48 C6 35 CC EF C7 Sess bye hg Ay 

« €008 C5 CA DF CA 70 CF 23 CB 
« C010 9C C8 SC C7 74 C7 1F C8 


In a Display Memory command, the start and ending addresses must be completely specified as 4 digit 
hex numbers. To modify a memory location, move the cursor up in the display, type the correction and 
press RETURN to enter the change. When you move the cursor to a line to do a screen edit, and pines 
RETURN, the colon tells the monitor that you are Pesnienne data. 
: R DISPLAY REGISTERS 
«R PC SR AC XR YR SP 
= C6 ED 00 20 00 F5 er ae 





Registers are saved and restored upon each entry or exit from TIM. They may be modified or preloaded as 
in the display memory example above. The semicolon tells the monitor you are modifying registers. 

G BEGIN EXECUTION ; 

.G C38B a "Cs 


The GO command may have an Selita address 10 the target. {f none is specified, the PC from the R 
command is taken as the target. 

x EXIT TO BASIC 

X 


READY < 
Causes a warm start of BASIC. In a warm start memory is not altered in any way and BASIC resumes 
aperation the way it was before a monitor was made. ee 


L LOAD 1 Onto, ee 


es a ee . 
.L.,“PROGRAM-NAME"O4—- .s Dew. #, Meds PROOE oh ne it wed aye 88 

ics nts paar Sele erty BOS ete et) HRs Rae RE Meares, aaaatet 

Ww 6 : ee % i : 

No defaults are allowed on a LOAD command. The device number and the file name must be completely 
specified. Operating system prompts for operator intervention are the same as for BASIC. Memory 
addresses are loaded as specified in the file header which is set up by the SAVE command. Machine 
language subroutines may be loaded from BASIC but care must be taken not to use BASIC variables as 
the variable pointer is set to the last byte loaded +1. : y 


S SAVE =: ae ae 
S."PROGRAM.NAME",01,0400,.076D—~  S  Dew #, ham tresh, 





Soden 





persed ce eo RRR RN a ot RE EAT Et eA Ast et tne Nf en 


ite wa eee gee am Ce mR re eR RT EE ANE REE ERIE 2 AT 


; _____ WRITING MONITOR 
Likewise, no defaults on the SAVE command. Any start and ending address may be spécified: © 


To cancel a command either type RETURN or press STOP to cancel a Display Memory, LOAD or SAVE. 


INTERRUPT AND BREAKPOINT ACTION 
BRK is a software interrupt instruction which causes the CPU to interrupt execution, save PCG and P 


i registers on the stack and then branch through a vector at locations $021B and $021C. TIM initializes this 
| vector to point at itself on entry by CALL. Unless the user modifies this vector, TIM will gain control when 
| \ a BRK instruction is executed, print B* indicating entry via breakpoint (instead of C* entry via call) and 
the registers (as in the R command), and wait for user commands. Note that after a BRK which vectors to 
TIM, the user’s PC points to the byte following the BRK: however, users who choose to handle BRK 
| instructions themselves should note that BRK acts as a two-byte instruction, leaving the PC (on return 
| via RTI)two bytes past the BRK instruction. . 
IRQ is vectored normally In PET to an ISR which updates the clock and scans the keyboard every 60th of a 
second. If the vector is altered and the machine language subroutine does not restore it, a power-on reset 
must be performed. eS ‘ ; 
NM{ is not provided for in the PET. The processor line corresponding to this interrupt is permanently 
pulled UP. - : 
REST vectors to a cold-start of BASIC. Memory Is cleared. Reload and re-enter TIM via SYS command. 


TIM MONITORS CALLS AND SPECIAL LOCATIONS 


JSR WRT $FFD2 type a character 

JSR RDT SFFCF input a character 

JSR GET SFFE4 Get a character 

JSR CRLF $FDDO type aCR : 

JSR SPACE $FDCD type a space 

JSR WROB _SE775 type a byte 

JSR RDOB ‘$E7B6 read a byte 

JSR HEXIT $E7E0 Ascii to hex in A 
MEMORY USAGE 

$0A-$22 zero page. 

$400-$76A tt absolute RAM 


$23-S5A are zero page locations in the BASIC input buffer which may be used when BASIC is not using 
these locations. The second cassette buffer $33A-$3FF is a well protected location if that device is not 
used. Other memory tocations may be used with considerable risk, depending upon which piece of PET 
software wants to use it also. 


MONITOR CHECKOUT PROCEDURE ; ie 
1) Power up your PET normally into BASIC command mode. Type SYS 1024. You should see a display 
something like: ae : : be 

B’ PC SRAC XR YR SP_ INV 

29 00 88 e9 FE FF E68A 
Exact values may vary, although the first and last values should be as shown. 
2) The display of registers is the standard entry display message. !t consists of C* to identify entry by 
call, followed by the CPU register contents: program counter, processor status, accumulator, X index, 
Y index, and stack pointer. Note that all TIM inputs and outputs are in base 16 which is referred to as 
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is 


io ee ee oe 


arenes I 


pred 
‘ 


i 


ey 


nel 5 


“oy 


n 
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Preewd. 


oo 2 
to} 


med 


ceeds 


Td 


Ts 


fiexddecimal, or just hex. lt hexadecimal, the digits are 0,1,2,3.4,5,6,7,8,9,A,8,C,D,E,F. After printing the 
CPY registers, TIM is ready to receive commands from you. TIM indicates this “ready” status by typing 


the prompting Character “.” on a new fine. 


3%) Fhé user's CPU register may also be displayed with the R command. Type an 
The monitor Should respond as above, but without the asterisk. 


R and press RETUBN, 


4) Displayed valués May be monitored by Screen edit and re-entry of the line via return. Remember to type 
Spaces to delimit fidlds and type 4 digit hex numbers for addresses and 2 digits for byte contents. 


8) Memory may be displayed and modified using the M command. Type: 


AA 0106 6107 


You will See 4 display something like: 
0 1 345 6 7 


«t 6160 20 00 30 30 30 30 30 
Now use thé screen edit to modify in place on the screen, type RETURN and display again. 


6) Use M arid ; to enter the following test program called CHSET because it prints the ASCII 64 character 
S6t On the terminal. The M command is used to display memory locations on the PET screen and itis then 
POSSiIBIé to USE the Seféen edit on each line and type RETURN to alter memory. 


* 833A 
CRLF=$4F2 FDDO 
WAT =SFFD2 
93A 20 F2 04; CHSET JSR CRLF 
33D AZ 20 LOX #820. * 
a3F 6A LOOP TXA 
340 20 D2 FF JSR © WRT 
343 £8 INX 
444 EO 60 GPX —_#$60. 
346 DO. F? BNE LOOP 
348 00 BRK 
349 4C 3A 03 JMPCHSET 


“M__033A,034B 
033A 20 F2 04 A2 20 8A 20 


D2- 


« 0342 FF E8 £0 60 DO F700 4c 


034A 3A 03 


7) CHSET was assembled to reside in the 2nd cassette buffer. Type: 


1G 033A 
tO éxecute the program. 


Thé listing should look like this: 


. P"#$%'0*,+.10123456789:; =? @ABCDEFG 
HIJKELMNOPQRSTUVWXYZ{/]J 


B* PC SR AC XA YR SP INV 
6349 38 SF 60 8D FE E68A 


Note the address contained in the PC. It is possible to type G execute the program again without 


Specifying aA address. 


8) Next we will link CHSET with BASIC. First replace the BRK instruction in location $348 with an RTS 


(return Subroutine) (change $348 from 00 to 60). 


7 ~ §) Change the USR function vector in locations 1 and 2 to point at the subroutine $33A, 
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X 
: READY ‘ Ceebieg Mee. ages 
11) Prove that the linkage is established by using both SYS and USR. 

A=USR(0) 


Sof . 1 0000 4C 3A 03 pO BS, ey ME eie ; 
10) Exit from the monitor and re-enter BASIC. ee 5 ce re eres 
SYS (3°256 + 3°16 + 10) (Enter these as direct commands.) 





| 
| 
| 
| 
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a emcee iene enemy ent a SAAR AN AIRCON ICMR ELAN RT REI DO EBERT IO TEENIE EY Te PON 


’ 


ie PET RESIDENT MONTTOR.... 
i 


‘i LIKE 8 LOC 
t és 


J “251¢ Folt 
* 2515 FDU 
4 Lo 
] 2517 FOE 
- 2518 FDIt 
2519 FD13 
(3 2526 FDIS 
ped «= OHNE ODL? 
| 2522 FDIS 
- 2523 FDIB 
] 2524 FDIC 
“rm 2525 FDID 
ai 2526 FDLE 
] 252? FD21 
- 2528 FD22 
2529) FL25 
a5 2538 FD26 
cw = - @52400 FD2|S 
; 25232 FD2A 
- 2533 FD2D 
] 2534 FD2E 
|! } 2535 FD36 
pe 2536 F033 
] 253? FD34 
“* — 2538 FD36 
2539 FD39 
ad 2548 FD3B 
waa. 2541 FD3ZE 
2542 FD4a 
— 2543 FD43 
J 2544 FD44 
. 2545 FD4? 
ee 2546 FD48 
] 2547 FD4B 
- 2548 FD4B 
2549 FD4F 
=| 2558 FOS2 
or 2551 FDS54 
Bie 
7 2553 FD56 
ji 2554 FDSA 
. 2555 FBSA 
oA 2556 FDSC 
i 2557 FDSE 
os 2558 FD6e 
2559 F062 
= 2568 FD65 
ns 2561 FD6S 
2562 FD6A 
a4 ~ 2563 FB6C 
] 2564 FDG6E 


O4BS = bande 
<= 


Mas 


COoE 


83 62 


62 a2 


FR. 44 
“at 62 


LINE 


sCOPYRICHT 






NCKD 
CALL 


BRKE 


83 


ly 


pt oink vid a 


Ss 
£ 


** COMMODORE 


Ho, 


Ce ae eer! 


=8 
LOA 
STA 
BHE 
LDA 
STA 
cla 
LSR 
PLA 
STA 
PLA 
STA 
PLa 
STA 
PLA 
STA 
PLA 
ADC 
STA 
PLA 
ADC 
STA 
LDA 
STA 


BEQ: 
‘CHP 
BEQ 


.. PAGE @BB1 





1578 BY ree 
TNHTERNATIONAL LIMITED 


at 
ee ha 


ea oa 











Tra Paws 
1 aaTR2ea 3 
Ps ASST 4 
we sCALL ENTRY. 
THPC ete 
B3 ce ee 
ae GBREAK ENTRY 
THPC oats os 
a 30 SET FOR PC 
YR sSAVE ¥ 
KR iSAVE X 
ACC “;$AVE ACCUMULATOR 
pcos; "agave euacs? 
USF [bec FOR eReaK | 
PEL dic Re ee 
asFF - ee miss 
‘ a : As: ea Qers 
PCH ae SEES SEES 
CIHY “> VSAVE CUURENT IRQ VECTOR 
INVL oe aa, eae 
CINVeL = 
INYH wf 


14; #SAVE CURRENT STACK POINTES 
SP ee ; : - 
ACLEAR INTERRUPT DISABLE 


CRLF sPRIHT ENTRY DATA 

TMPC sTYPE GF ENTRY (8B OR C> 
e's . Ee. 

WRTWO SURITE ‘eC’ OR ° 987 

a’R -.., #DISPLAY REGISTERS CONnMAND 
Se “""" ;$KIP TO INTERPRET CONMAND 
#2 . sUSER COMMAND IHPUT 

TXTPTR +COMENG FROM TEXT BUFFER 
#2 : 

wRAP 3ADBR YVRAP AROUND FLAG 

@CrR sSTART PROMPT WITH CRLF 
. +A PROMPTING *° ? , 
WRTWO et 
RDOC sINPUT COMMAND LINE 

ae Z1GNHORE PROMPTING * ° 
$T1_,-¢ 

#528 sSPAN BLANKS : 

ST1 wae 





; 100 


evs merger terminate ttn ttre ese Mee eae tenement ae a 


PET RESIDENT MONITOR... .. 


LINE: @ Loc 
0484 
\ 2566 FD7e 
2567 FDe2 
— 2568 FD?5 
2569 FD?7 
2578 FD?9 
2571 FD?9 
2572 FD?9 
2573 FD?9 
2574 FB?C 
2575 FD?D 
2576 FDS8e 
1497 3577 FD8t 
2578 FD82 
2579 FDe83 
2581 FBS 
2583 FD88 
2584 FDBA 
2585 FSD 
2586 FOS8F 
2587 FR92 
~ 2589 FDS3 
2598 FD93. 
2591 FDI 
2592 FD93 
°2593  FDS3 
2594 FD9S. 
2595 FD97 
2596 FDIA 
2597 FDIC 
2598 FDSF 
2599 FDA2 
26668 FDAS 
2681 FDAG 
2682 FDA? °° 
2683 FDA? 
2665 FRAT 
2686 FORA 
2687 FDAC 
2688 FDAE 
2609 FDB@ 
2618 F59B2 
2611 FDB4 
2612 FDSS 
2613 FDBG 
2614 FDoBS 
2615 FBBC 
2616 FDBE 


























. PAGE @8a2 
COLE LIME : wee 
A2 87% L- $8 LOX SHCMDS-1 . ‘LOOKUP COMMAND. |. 
DD EO FD $1. CHP CHDS.X EEE ae? 
De BBL BHE S2 - 
B86 B84 STX SAX sINDEX OF COMMAHD IN TABLE 
sTMDIRECT UMP FROM TABLE BY 
3 PUSHING TARGET ARDRESS-t 
tts i THEN RTS : els - 
ep €e FD LBA ADRK.X # ae 
48 Off oe PHA Se ae 
6D FA FD LDA ADRL.X er 
48 {2 05... PHA Seem z. e ; 
Ceca “RTS ce sti f ta ae 
cA $2 DEX ee 
18 ED BPL Si° ;LOOP FOR ALL COMHANUS.. 
6C FA 83 | JAP CUSRCMD) ALLOW USER COMMANDS 
‘ RS ot ees - 
ee eee ete f Be o£" ¢ 
ras ge tk i 
a ve vee ie ge fe fF oh 
Aas FB PUTP LOA THPO@ r ee 
BD 81 B2 STA PCL ¢ : ‘ ee 
as FC LDA THPB+1 : : ee 
BD 88 a2. STA PCH : cot. O&E 5 
68 RTS . rt 
a ; es 
;DISPLAY HEM SUBR. SET AR=NUNBER .- ; 
’ OF MEMORY BYTES DISPLAYED Ee GUBO nae tl, Sa ae 
; sTMP@=ADR OF KEM DISPLAYED. , py cee 
3 ‘ 
85 B5 DM. «OSTA THPC a CMs 
AB 62 LOY Bk Be op 
28.CD FB, oma JSR SPACE 7. URN BYTES yy, 
Bi FS LDA-CTBPQ).¥ TCTMPBD=ADR gg 
28 75 E7\ JSR WROB  wevta a tyle 2 20 ty! 
20 DS FD JSR IRCTHP = . é 
C6 BS DEC THPC’ 
DB Fi... BHE DAL es 2 
60 ‘ RTS °C” o : 
FREAD AND STORE BYTE. 
;NO STORE IF SPACE OR THPC = 
Se ; ; rare $8 88 ° 
26 BG E7 | BYTE JSR RDOB. read ates . 
98 ep BCC BY3 ” i SPACE : ; 
A2 8e LBX 9@ ;STGRE BYTE, s 
81 FB TT" STA CTHPB.X) a EN Peete 
ci rea CHP CIMPB,X) VERIFY WRITE... - 
FB 85 BEQ BY3 — ; - sige 4 
68 {PLR - +ERROR: CLEGR STACK 
68 PLA 
4C F? £7 JAP ERROPR Ce ee 
28 BS FD BY3 . JSR INCTMP ZINC THPB ADR. - 
cé 85 DEC TMPC lie ons 
68 RTS 
101 
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PET RESIDENT MOHITOR...... PAGE 9803 
ad gl z j Shana ft BES 
LINE @ LOC COLE LINE 
2618 FOBF A9 B2 SETR LDA #<FLGS sSET TO ACCESS REGS 
2619 FDC 85 FB _., STA THPB SSR bist test 
2628 FOC3 a9 82 © “LDA @>FLGS : eee -_ 
2621 FDCS 85 FC STA THPOSL a 3 
2622 FOC? AS 85 LDA 85 2b 
2623 FDCS 68 RTS 5 BG ae 
2625 FOCA 28 CB FD SPAC2 JSR SPACE a 
2626 FDCD A9 28 SPACE LDA #328 S303 85 
- 2627 FOCF 2c .BYT $2C ane gk 
2628 FDD@ Ao BD CRLF LDA 83D 
2629 FDD2 4C B2 FF JHP $FFD2 - ae eek Bega. LR ws 
2631 FDDS FINCREMENT CTMPO,THPO+L) BY Lt . 
2632 FDDS €6 FB INCTMP INC THPO ;LOB BYTE . 
2633 FOD? DB 86 BHE SETUR 
2634 FDD9 £6 FC IHC TMPOFL sHIGH 
2635 FODB DO @2 BHE SETUR 
2636 FDDD E€6 DE THC WRAP 33 
2637 FDDF 62 SETWR RTS fe 
e . va 
Ps eS of p 
2639 FDEO sCOMMAHD AND ADDRESS TABLE ere 
OS OR ee 
2641 FDE@ 3A CMDS .BYT *:? sMODIFY MEMORY H 
2642 FORE! 38 .BYT *3¢ SALTER REGISTERS 
2643 FBE2 52 .BYT /R? sDISPLAY REGS 
2644 FDE3 43. ..BYT ‘MS sDISPLAY MEMORY 
2645 FBE4 47 “.BYT ‘6° sSTART EXECUTION 
2646 FOES Se 259A JBYT 4X! SWARM START BASIC 
2647 FOES 40°. -BYT ‘L sLOAD MEMORY ewe 
2643 FDE7™ 53, .BYT /S’ sSAVE MEMORY aie 
2549 FDEB FE“! ADRH .BYT >221 Lead sp te 
2658 FRE9 FE OD .|C .BYT >222 2 = 
2651 FDEA FE *% .BYT >223 oh 
2652 FREB FE OF 7. _.BYT 9224 to 
2653 FOEC FE w: ; .BYT 275 se 
2654 FOED FR on TBYT 2226 Zi 
2655 FOEE | FFL & © Parr .BYT 9227 tien Seale 7a 
2636 FOER Les) #9 5 9": .BYT 9228 a, oe 
265? FDOF@ B88 or ADRL .BYT (221 ee < 
2658 FOFL 96 -BYT €222 gee 
2659 FOF2 22 2s .8YT (223 ai” tbe 
266 FOF3 57 SE .BYT (224 : 
2661 FDFS4 Ce OY .BYT (225 ihe 
2662 FDF5 o6,., FD .BYT €226 k Bane ne 
2653 eure [1a] “4 —.BYT (22? Ue ee eats 
2664 FIF7? 18! S dE JBYT (228 Le 
g Bet £35 
102 " z ISS 


LINE 


2666 
2666 
2667 


2669 
2678 
2671 
2672 
2673 
2674 
2675 


‘ 7 : 


2677 
2578 
2673 
2680 
2681 
2682 
2683 
2624 
2685 
4 2686 
j 2687 
2688 

2689 

2698 
: 2691 
2692 

~ 2693 
2694 
2695 
2696 


2638 
{ 2699 
2788 
2701 
2782 
2783 
2784 
2785 





2787 
2783 
273838 
2718 
e7it 
27he 
2713 
e7i4 
2715 
2716 
2717 


| 
i 






& Loc 


FDFS 
FDOFS 
FOFOD 


FE1S 
FE16 
FEL? 
FELA 
FEILB 
FE1D 
FE28 


FE23 
FE2s 
FE28 
FE28 
FE2C 
FE2E 
FE3¢@ 
FE32 
FE3S 
FE38 
FE38 
FESE 
FE41 
FE44 
FE47 
FE4aA 
FE4D 
FEse 
FES3 
FOS6 


FESS 
FES8 
FESE 
FE66 
rFe63 
FE66 
FE6S 
FE6B 


FEGE 
Feet 
FE73 
FE?S 
FE?7? 
FE?8 


CODE. 
oD 


28 28 
28 58 


29 €B E7 
20 Aa? £7? 


29°97 £7 
28 €B E? 
28 A? EF 
28 97 E7 


28 81 F3 


PET RESIDENT MONITOR. ..... PAGE 


LINE 


REGK 


ALTRIT 


DSPLYR 
D2 


DSPLYN 


. WSR 


DSPi 


e0o4 


-BYT CR.?* 


-BYT ’ PC IRQ SR AC XR YR Spr’ 


TYA 
PHA 
JSR 
PLA 
LDX 87. 
JSR 
Jae 


LDA 
JSR 
THX 
CPX 
BHE D2 | 
LOY 8°35" 
JSR ALTRET 
LDA PCH : 
JSR 
Loa 
JSR 
JSR 
LDA 
JSR 
LDA 
JSR 


PCL 
vROB 
SPACE 
INVH 
WROB 


wrop 
SETR 

Bn 

BE@S1 


we. 
mow 
wD 


RDOC 
RDOA | 
ERRSI 
T2T2 
RROC 
RD0A 
ERRS I 
T2T2 


cw 
mmo wo 


AAAI NV 


wat 
oO 
oO 


STOP 


adRAP 


_ BYE BEQS1 


TNP2! 
TAPS 
THP 2+! 
THP Ost 
oFGS! 
ee 
ALITRIT 
YRDA 
103 


JSR 





wROB dw. 


INVL oy, 


BEOST 


Ra. toy 








x 
vee 
S 





FREAD START ADR 
sERR IF NO SA 
sSA TO THP2 fom Pogo ce 
sSKIP DELIMITER. at 
jREAD END ADR ; 
sERR IF NO EA 44 
7SA TO IMPB.. EA TO THP2 


+TEST FOR STOP KEY |, 


sDOUBLE BYTE COMPARE 
‘ - Dee rd 


a to. 


«ER LESS THAN SA 


: Scheie oom . : erg an ascot tr gm neers ont 
aii ts SS mR ean es i a ea ER 


1 
proved 
od t 


T LIHE # LOC CODE 
ry 
t 2729 FE8A AD 88 
. }- 2721 FE8C 28 93 FD 
[ 2722 FESF Fe BD 
; ] 2724 FESt 4C 56 FD 
{ 2726 FE94 4C F? E7 
f (2728 Fes? : 
| 273@ FES? 20 86 E7 
T 2731 FESR 28 A? E7 
ae 2732 FE9D 99 B3 
2733 FESF 28 88 FD 
| 2734 FEA2 28 CF FF 
2735 FEAS 28 A? E7 
2736 FEAS 98 BA 
2737 FEAR AS FB 
J” 2738 Feac gD 08 62 
{ 2739 FEAF AS FC 
| 2748 FEBL 8D e7 82 
yd. 2741 «FEBS 28 OF FD 
2742 FEB? DB BA ao 
‘) 2744 FEBS 
: 2746 FEBS 28 B6 E7 
2747 FEBC 28 A? EP 
~ 2748 FEBF 98 93 
co 2749 FEC: Ad as 
2758 FES3 385 B85 
r 2751 FECS 28 EB E7 
2752 FEC® 20 A? FD 
2753 FECA 28 FB 
2754 FELD Fe C2 
i 2755 FECF 20 CF FF 
: 2756 Feb2 C9 BD 
7 2757 FrD4s FO BC 
T 2758 FEDS CF 20 
i 2759 FEDS Ba BA 
7 27660 FERR 28 A? ET 
2761 FED 96 63 
i 2762 Fear 20 88 FD 
: 2763 FEE2 RE B6 B82 
| 2764 FEES 9A 
Hf 2765 FEE6 78 
= 2766 FEEZ AD 07 82 
i 276? FEEA 85 91 
rr. 2768 FEEC AD eB B2 
i 2769 FEEF 85 98 
| } 2779 FEFL an ga 2 
ao 2774) FERS 648 
: 2772 FEFS AB 81 82 
~ 2773 FEFS 48 
; 2774 FEF AD a2 B2 


PET RESIDENT MONITOR. 


-.. 2, PACE 


LIKE 


aves 


“LDA 88 


BEQSI 
ERRS1 


SALTER 


ur 


ALTR 


“ISR 


ale 


ALS 
sALTER 


ALTn 


Ad 
AS 


aa 


“CAP 
’ BHE 
JSR 


G1 


“ JSR 


‘STA 


“JER 


“STA 
ipa 
“PHA 


JSR OM 
BEQ DSP! 
JMP STRT 


JMP ERROPR 


REGISTERS 
tc: woe 


JSR RDOB 
RDOA 
aL2 
PUTP 
SFFCF 
*RDOA 
AaL3 
THPS 
UNYEL 
TMPOE 
INVH 
SETR 


BCC 
JSR 
JSR 


Bcc 
LDA 
STA 
LBA 


JSR 


BRE a4 


MEMORY - READ ADR AND DATA 


RDOB 
JSR RDOA 
BCC ERRS1 
LBA be 
STA THPC 
JSR ROOT 
JSR BYTE 
BRHE &5 
SEQ BEQS1 
JSR SFFCF 
Cap #390 
BEQ G1 
#s20 
ERRSI 
RDOA 
BCC G1 
JSR PUTP 
LOX SP 
TRS 
SEI 
LDA 
STA 
tba 


INVH 
CIHYV+1 
THYL 
CIKY 
PCH 


LDA PCL 
“PHA 


LBA 


“ sCY=8 IF SP 


+DISPLAY 











s 
a 
G 





23 &2 
#SKIP 2 SPACES... i 


+SPACE 
SALTER PC 





LO Ot ae 
ee od ose 
Ars, 





sSKIP 2 SPACES 
sREAD MEM ALTER ADR 
sCY=0, IF SPACE. ERR 
sSET CHT = 8B 





ra 
- th 

@ 

wn 





ve 


SIF CR. EXIT. 


3IF NOT SPACE 





en fens 





i 





ae 
fee sae 








LINE # LOC = CODE LIME 7 - Soe De aie ae 
























| PET RESIBENT MOKITOR......PACE e846 : 4 
2775 FEFC 48 PHA ; etc yee 
2726 FEFD AD 83 82 LDA ACC, es Boke 
2777 FF@G® RE B84 B2 LOX XR 
- 2778 FF@3 AC B5 B82 LOY YR pees es toa bets 
2779 FFG6 48 RTI ae ae . ; : 
| oro art P2RRE FE LF oF beL 
i 2781 FFO2 AE Bb B2 EXIT LDX SP 
2782 FFA 9A TXS Ee aes ot : 
2783 FFB ces 3) SNP READY TO SASIC YARN START 
2785 FFE 4C F7 EP ERRL JHP ERROPR : - 
-p 2787? FFLL a 2221 =EUFS? 
2789 «FFL ; +OAVHINE LARGUAGE LUAD ; ; 
eT ee Fa . a a mle 
2791 FF11 A@ 81 LB LBY #1. . no ara 
i 2792 FFIZ 84 D4 STY Fas! sDEFAULT DEVICE e1 
1 2793 FFIS 88 DEY Be dO ean bas 
' 2734 “FFI6 84 D1 STY FHLEN toot 
, 2795 FFI8 84 9D... STY VERCK  -,. aos eae 
2796 FFIA AF B22 — . LDA #>2221, 7PLACE TO STORE NANE 
i 2797 FFIC 85 DBO — STA FRANR4! : 
2798 FFIE Ad 87 ss Read! LDA #¢2ZZ1.. A 
! 2799 FF2@ 85 BA’ “"" . STA FRABR ~ 
: 2808 FF22 28 CF FF Li JSR SEFCF .4 
{ 2901. FF25 C9 26°. — CMP #’.. : yee tee : 
2802 FF27 FR FS — 7" BEQ Li. sSPAN BLANKS 4. 
2883 FF25 C9 BD .° _ CHP #CR” : , . 
2804 FF2B FO IA a * . BE@ LS. . gBEFAULT TO LOAD. 
2885 FF2D C3 22 CAP #/"” ae » 
“2806 FF2F “De DD LR 7s  BHE ERRE ““"PEILE NAME MUST BE NEXT ~ 
0 2867 -FF31 28 CF FF L3 Be USR.SFFCR © eee 
2808 FF34 CS 22 CHP #’*. : : 
2809 FF36 FO 24 : BEQ LO — sEND OF NAME |. 
2810 FF38 CS BD... CHP acR sDEFAULT A LOAD.» 
2811 FFIR FO eB |'* BEQ L5- ; ; 
2812 FF3C 91 DA ., STA CFHADROY : 
2813 FF3E €6 Di a IHC FNLEN oe Ge Aes a: 
2814 FF4@ C8 “THY wate te! 
2815 FF41 Ce@ 18 , CPY #16 : 
2816 FF43 F8 C9 L4 BEQ ERRL sFILE MAME TOO LONG 
2817 FF45S De EA . BHE L3 te bhoib ls fo: 
2818 FF47 AS B4 LS LDA SAYX . 
2819 FF49 ¢9 @6 °° °° CHP #6... ¢ Peut 
2620 FF4B De E2 L6 BRE L2 . sNOT A LOAD nee 
2821 FF4D 26 22 F3 _ JSR LDIS ee 
2822 FFS@ 26 £6 F8 JSR TUAIT Se ks ; 
2823 FFS5S3 ADS 96 LDA SATUS ‘, ; 
2824 FF5S 29 18 AHD #SPERR seats ae soe 
2825 FFS7 De F2 tL? - BRE L6 sLOAD ERROR .. 
2626 FFS9 4C 56 FD JAP STRT : Ck ‘ 
282? FFSC 28 CF FF La JSR $FFCF wes - 
2828 FFSF C9 OD CHP ECR. Wh abe, EINES ‘ 
2829 FF61 Fe E4 BEQ LS ;DEPUALT LOAD 


105 . 








‘. 
d LINE # LOC 
Lee) 

li; 2838 FF63 
r 2831 FFE6S 
! - 2832 FF67 

2833 FFE6A 
d 2834 FFEC 
2835 FFG6E 
. 2836 FF7@ 

] 2837 FF?2 
rT 2938 FFZ4 
a 2839 FF?7 

] 2848 FF?9 
ile 2841 FF7B 
i 2942 FF?D 
7 2843 FF?F 
ro 2844 FF82 
' 2845 FFS8S 
L 2846 FFSS 

] 2847 FFSA 
T 2848 FFaC 
Ps 2849 FFSF 
] 2650 FF9I 
T 2851 FF93 
i 2852 FF9S 
| 2853 FF97 
ro) 2854 FFOA 
i“ 2855 FFS9D 
a 2856 FFOF 
] ~ 2857 FFAL 
™ 2858 FFA 
L 28539 FFAS 
] 2868 FFA? 
aan 2861 FFAS 
; 2862 FFAB 
| 2863 FFAE 
: 2865 FFBI 
- 2866 FFBt 

286? FFBI 
a 2868 FFBI 
= 2869 FFBI 
2870 FFBI 
. 2871 FFBI 
2872 FFBI 


4 ' 1 
pa} ey Ly LY 


4 


PET RESIDENT MOHITOR 


CODE 


Ee? 


E? 
£7 
FF 


EE? 


E77 


FF. 


F6 
FD 


“he 


... PAGE 6867 


LINE 


CMP 
BHE 
JSR 
AND 
BEQ 
CaP 
BEG 
STA 
JSR 
“cme 
BEQ 
CHP 
BHE 
JSR 
JSR 
“SSR 
CHP 
BHE 
JSR 
LDA 
STA 
LDA 
STA 
JSR 
JSR 
CMP 
BEQ 
CAP 
_ BNE 
“LBA 
CHP 
BNE 
JSR 
UMP. 


Lg 


Lie 


Lit 


L20 


Li4 


STRT 


_224=ALTH-21 


2Z22=ALTR-1 
ZZ3=BSPLYR~-2 
Z242DSPLYM-1 
225=G0-1 
Z26=EXIT-1 


“227eLD-i 


2Z28=LD-1% 
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sBAD SYNTAX 


sDEVICE 8 


sDEVICE 3 


DEFAULT LOAD 


sBAD SYNTAX 


sMISSING END ADDR. 


sMISSING CR 


aT END 
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Chapter 2. ; ERRORS AND DIAGNOSTICS | 


One of the advantages of the highly interactive way tin which you are able to use vour PET is that errors 
are easily correctable, due to the fact that the languages that are used within the machine have specific 
tules uncer which the not so smart computer can operate. These rules are necessary to allow the 
fanguage to bo able to understand what you are trying te tell it. Whenever BASIC cannot perform a 
function, it WHE tel! you about it in the form of an error message. A total list of the error messages and 
some examples of what causes them follows. = ee oe 
The advantage of having this immediate response on the screen is that you can use tie screen editor to 
irnmediately fix the problem as it occurs. In most cases, the problem is going to be obvious to you. The 
most common error is the syiitax error problem, which means that you have typed the line to BASIC that it 
doesn't understand. The correction for this type of problem is to list the line that is being complained 
about and compare the typed data to what you thought you were going to type. About 90 percent of the 
time, you will discover the mistake by superficial inspection. If not, you may have to make reference to 
the appendix which defines the form fer all the BASIC statements and if that does not clarify it for you, go 
to the individual writa-up to understand what you are doing wrong. 





The common problems are, having a comma in the wrong place, or you used a variable that cannot be 
used in this particular kind of format. The basic premise to remember when correcting errors is that 
aithough the language is forgiving of exact requirements for spaces verses no spaces etc., that the rules 
ere exoiicit. If vou vioiate the rules, the computer is going .o continue to complain about an error until 
you give it a problern it understands. Sometimes, the error is not as easy to understand, althcugh in 
almost all cases while executing a problem, if an error is encountered, the line number will be indicated. 


Sometimes a problem is the result of a programming mistake that you have made in a previous 
computation. For instance, if you get a divide by zero in Jine 75 and you know you shouldn't be dividing by 
zero because, in your opinion, the vatue that is in the divisor shoutd never de zero. The error is probably 
net on line 75, but somewhere further up your program where you define the variable. In order to attack 
this king of problem, the uss of temporary print statements is the common technique. In other words, if 
the variable is zero on line 75 and you don't think it should be, then you. should list tne portion that defines 
the variable. More often than not, an inspection of this area will show the problem to you immediately. If 
not, insert lines at appropriate places where the variable is computed to see when the variable acquires a 
value tiiat you don’t expect. This technique will usually allow you to figure cut the problem in your 
programming. ; . 


The error messages in PET BASIC have been expanded over those of cther BASICs to give you an 
understandable formai of the message. However, other than using the techniques which we have just 
described, the computer cannot fix a problem for you, it is in this area that programmers are made or 
broken. Just remember that nobody is looking over your shoulder and use the machine to heip you 
understand the problem. if necessary, write little test routines which do only a piece of your program, 
until you understand what is causing your problem. 


ERROR MESSAGES 
On encountering an error in interpretation of a statement, whether in direct or program 
execution, BASIC disolays a diagnostic message then returns to direct mode. 


2MESSAGE ERROR IN LINE NUMBER 
READY. 
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Resumption of execution is not permitted with a CONT command. Variables within the statement or 
“rogram retain their values so they may be scrutinized to determine a cause of error, if 
~necessary. GOSUB and FOR entries on the stack at the time of error are cleared so resumption of 
execution is not possible by RETURN or NEXT. 


POSSIBLE BASIC MESSAGES AND MEANINGS 
Bad subscript- An attempt was made to reference a matrix element which is outside the dimensions of 


the matrix. This may happen by specifying the wrong number of dimensions or a subscript larger than 

specified in the original dimension. 
DIM A(2,2) 
AW, 1,1) =2 
?BAD SUBSCRIPT ERROR © 
READY. 

. A(10,10) = 2 

2BAD SUBSCRIPT ERROR 
READY. . 


tos 


Can’t continue-Program execution cannot be resumed via a CONT command in four cases: 
1) no program exists. _ 
2) anew line was just typed in. 
3) the program has not recently been run. 
4) an error just ocurred. 


10A$ = ‘HELLO’ 

CONT : 

‘CAN'T CONTINUE ERROR’ 
~ READY. 


Division by zero-Zero as a divisor would result in numeric overflow-thus it is not allowed. When this 
message appears, it is most expedient to list the statement and look. for division operators. 


2DIVISION BY ZERO ERROR IN 10 


LIST 10 
10A = BIC 
i] Oe 
te) 


Formula too complex--This message concerns only string expressions when BASIC runs out of string 
temporary pointers to keep track of substrings in evatuating a string expression. 


ie he aig TOO po lgiie EX ERROR Fads 


Break the string expression into two smaller parts to cure the problem. 


lilegal direct--A single 8G colurnn buffer area is used by BASIC to process incoming characiers. This same 
buffer is used to hold a statement that is being interpreted in direct mode. INPUT will not work because 
coming characters would overwrite the variable list following INPUT to be processed. 


DEF cannot be used in direct mode for a different but similar season. The name of a function is stored in 
the E ASIC variable area with poiniers to the string of caharacters which define the function. Since the 
funciion exists only in the input ouffer, it would be wiped out the first time anew command is typed-in. 
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j 


i 


¥ 


i 


qremast 


beers 


Irwin, 


Teed bvawe! bes! iret 


toca} 


| INPUT A : et 
ILLEGAL DIRECT ERROR 
READY. ff oe 





llega! quantity-Occurs when a function is accessed with a parameter out of range. This error may be 
caused by: us 
1 1, A matrix subscript out of range O< X <, 32767 | 
! , ~ X(-1)=¥ 

x : vos @ILLEGAL QUANTITY ERROR ES 
. LOG (negative or zero argument) 
"3. SQR (negative argument) | 
4 


. A*® B where A=0 and B not integer. 
X © — is itt’ yal because it would give a veomiplex result, 





np 


vue 





Ye nned 


5, Cait of USR before machine language subroutine has been paiched in. 


Bo 6. Use of string functions MID$, LEFTS, RIGHTS, with length patameters out of 
range(1< X < 255). Slbetints 
7. Index on ....GOTO out of range. ae . 


8. addresses specified for PEEK, POKE, WAIT and SYS out of range. 
(0 < X <65535). a 


3. Byia parameters of WAIT, POKE, TAB and SPC out of range 

(OK X<255), " . % 

POKE 32768,1000 oi, ee Taa Alpe hee dase ings Be Br ok 
MLLEGAL QUANTITY ERROR : ; : ae is 7 = wd, 
READY. megane Seta Tt ey a, tt 


Next without for-Either a NEXT is improperly nested or the variable in a NEXT statement Heeoeneen te to 

no previously executed FOR statement. 
FOR t=1 TO 10:NEXT:NEXT 2 ANCE OT a 

sf 2NEXT WITHOUT FOR ERROR : 

READY. ° ae Poa ee ae ae -7 


FOR |=1 TO 10:NEXT J 
2NEXT WITHOUT FOR ERROR 
READY. 


“nenereal, 


oe 


es 








ee Seer 


feowed 








J OUT OF DATA--A READ statement was executed but all of the data statements in the program have been 
” read. The program tried to read too much data, or insufficient data, was included in the program. Carriage 

| returning through a line READY on the PET TV display, sometimes yields this error because the message 
is interpreted as READ Y. ane : 

j 


READY. , 
20UT OF DATA ERROR 
READY. 


] OUT OF MEMORY--May appear while entering or editing a program as the text certislely fills memory. 
At run time, assignment and creation of variables may also fill all variable memory. Array available 
declarations consume large areas of memory even though a program may be rather short. The maximurn 

] number of FOR loops and simultaneous GOSUBs are dependent on each other. This context is stored on 
the 6502 hardware stack whose capacity may be exceeded. To determine the type of memory error, print 

| FRE (0). If there are a large number of bytes variables, it is most likely a FOR-NEXT or GOSUB probiem. 
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wot 


TOGOSUB10 

RUN 
so 2OUT OF MEMORY ERROR IN 10 

READY. : ; ; ; . m 

2FRE(0) * : Sane . ‘ % eee eae wi ys : 

7156 ae 
OVERFLOW--Numbers resulting from computations or input that are larger than 1.70141184 E + 38 cannot 
be represented in BASIC’s number format. Underflow is not a detectable error but less than 2.93873587 
E-39 are indistinguishable from zero. tte 

21E40 , 

OVERFLOW ERROR ae os er 

READY. : le Uke Sia 
REDIM’D ARRAY--After a matrix was dimensioned, another dimension statement for the same matrix was 
encountered. For example, an array variable is defined by default when it is first used, and later a DIM 
statement is encountered. 

Als) =6 er 

DIM A(10,10) a ee Oe te TPL Go ee oy RN ee iM See ate Eo 

?REDIM'D ARRAY BBROR: 

READY. 





REDO FROM START-+s not actually a fatal error printed in the standard format but is a diagnostic printed 
when data in response to INPUT is alpha when a numeric quantity is required. 
10 INPUT A some Jin emake ; 
: RUN CE ate se BEE 
a ?ABG 
?REDO FROM START 
2 





INPUT continues to function until acceptable data has been received. The complement to this diagnostic 
on files is BAD DATA ERROR which is fatal.When not enough data has been typed in n response to INPUT, 
a double ? is printed until enough data is received. 
10 INPUT A,B,C 
RUN 
71 
222 
223 
READY. 
RETURN WITHOUT GOSUB--A RETURN steterrent was ‘encountered without a marevigds BOSUE 
statement being executed. : ocr a 
CLR et Se HL A PT ean 
RETURN ‘ 
2RETURN WITHOUT GOSUB ERROR 


STRING TOO LONG--Attempt by use of the concatenation operator to create a string more than ‘258 
characiers tong. 








AS= 
FOR | =1TO 10:AS=A$+AS:NEXT “* ° a 
2STRING TOO LONG ERROR. ; stn 

Se ue READY, 


” Shit 


SYNTAX--BASIC cannot recognize the statement you have typed. Caused by such things as evesing 
parenthesis, illegal characters, incorrect punctuation, mispelied keyword. ‘ 


s 
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ma rr 


en | 


; ears | 


ms 


oe i a a no 


Jesaal Seasonal Ransod Feud 


ews Ayaueed 


weed 


Fereneal areal Famed 


Yee Sameera 


RUIN 

?SYNTAX ERROR # ee 

READY. bP are he ieee ee 
TYPE MISMATCH~The left-handed side of an assignment statement was a numeric variable and the 
tight-hand side was a String, or vice versa; or a function which expected a eng. argument was given a 
numeric one, or vice versa. ee 

AS=5 BOT aS 

2TYPE MISMATGH ERROR . 

READY. 


exist. 


GOTO A Te es 
QUNDEF'D STATEMENT ERROR ert 
READY. 


UNDEF'D FUNCTION--Reference was made to a user defined function which had never been defined. 


X= FNA(3) 
QUNDEF’D FUNCTION ERROR 
READY. 


Operating System Messages and Meanings 
BAD DATA-Numeric data was expected but alpha data was received when inputing from a special 
device. 


DEVICE NOT PRESENT- No device on the IEEE was present to handshake an 
attention sequence. Status will have 2 vatue of 2 which corresponds to a time cut. May happen on OPEN, 
CLOSE, CMD, INPUT#, GET#, PRINT# 


OPEN 5,4,3, ‘FILE’ 
QDEVICE NOT PRESENT ERROR ge a RO Sep ey Sede 9S ante Stare antece ne Rittee dene Falmalenense 
READY. 


FILE NOT FOUND-The named files specified in OPEN or LOAD was not found on the device specified. In 
the case of tape I/O, an end of tape.mark was encountered. In disk vO, the aie timed. out when 
attempting to open the file, thus producing this message: 





LOAD ‘FILE’, 15 ees 
2FILE NOT FOUND ERROR 
READY. . 


FILE NOT OPEN~The operating system must have device number and command information provided by 
the OPEN statement. If an attempt is made to read or write a file without having done this previously, then 
this message appears: Z Z ent sedeaunatveydy Saadeh 49. aetendenmalaeteatteniods wa% 2adey 


CLR 
INPUT#10,A : 
. 2FILE NOT OPEN ERROR a bapa egse itae kn MHA Sees eR utale Ne Maht Be Aes op Maer ee 
READY. 
FILE OPEN--An attempt to redefine file parameter information by repeating an OPEN command on the 


same file twice. 


OPEN 1,4,1 a . Be ee ne te te nee vos 
OPEN 1,4,1 - : 
IFILE OPEN ERROR 
READY. : 3 in te 
LOAD--Only occurs when loading a program from cassette tape. This means that there were more than 31 
errors in the first tape block or that there were errors in exactly the same corresponding positions of both 
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biocks. 


~ NOT INPUT FILE --Tape files, once opened for writing, cannot be read without first CLOSE rewinding tape 
and OPEN for INPUT. This message appears when an realhemph is made to read on nent file: 
10 OPEN 1,1,1 we : 


20 INPUT #1,A 
2NOT INPUT FILE ERROR 








READY. : iy Web ee 3 

NOT OUTPUT FILE~Tape files cannot be read and updated in place. Device Ois ihe keyboard and it 
cannot be written to: - ty ELL OE ORL O ef ogarbks Aycis ie te TAL TTA SG 

10 OPEN 1,0 

20 PRINT #1 y 

2NOT OUTPUT FILE ERROR co am Tyne te . 

READY. aie hy Ie See 8S i ee ee 
VERIFY-The contents of memory and a specified file do not compare. ....2. 3 ic jo ~ a DEEe 

ONES MOTO 
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Appendix A, 


BLOCK # 
*0 


COON DORON 


= 
oO 


“s 


_ 
nN 


13 
"14 


15 


PAGE 


TYPE 
RAM 
RAM 


TYPE 
RAM 


. RAM 


RAM 
RAM 
RAM 


TYPE 
ROM 
He] 


ha 


‘ 


Detalied PET Memory Nia 


PET Memory Allocation By 4K Clocks | 


START 
ADDRESS 


$0000 
$1000 
$2000 
$3000 

_ $4000 
- $5000 
$6000 
$7000 
$8000 
$9000 
$A000 
$B000 
$C000 
$0006 


S$E000 
$E800 


$FO00 


“see expanded description 


START 
ADDRESS 


0000 
9100 
0200 
0300 
0400 





FUNCTION : 
Working, text, variable storage. 
Test variable storage (8K only) 
Expansion RAM 
Expansion RAM 
Expansion RAM . 
Expansion RAM |=: 
Expansion RAM 
Expansion RAM 

Screen memory (1K) 
Expansion ROM 
Expansion ROM 
Expansion ROM 


BASIC (principally statement interpreter). 4 )< 
BASIC (principatly math package). — ik 


. Screen editor. gn 
Allinternal PET VO. - 


OS diagnostics | %- 


Block 0 By 258 Byte Pages ~ 
FUNCTION Gee 
BASIC OS working storage 
Stack , : ay 
OS working storage 
Cassette buffers. 
BASIC text area : 


** see expanded description by page 


START 
ADDRESS 
$E000 
$E800 


Block 14 By 2K Segment 
FUNCTION 


Screen editor 
PET VO 


Ad 





rs 





cand 
if 


aa 
ve 





arth etre pestis beets ea 











Pte 


« 


TYPE 
PIA 
PIA 
VIA 


A 


uO Device Base Addresses 


START . 
DDRESS FUNCTION 

$E810 Keyboard _ ae 
$E820«MEEE-488 7 
$E840 USR PORT cassette ~. | 





Locations not specified are used but have no clear one function definition. 


PET PAGE ZERO MEMORY MAP. 


le 


FROM TO 
000 - 
001 002 
14 me 
(15. s 

* U6, - 
17 18 
089 
3 te 
4 es 
: 5 a 
Evaluation of variables 
6 = 
7 % 
8 - 
9 pe 
10 - 
1 ~ 
12 - 
13 - 
19 - 
20 21 
22 29 
30 31 
32 33 
34 39 
Data storage maintenance 
40 41 
42 43 
44 45 
46 47 
48 49 
50 $1 
521° $3 
54 55 (2! 
56 136 57 
SBir ss §9 
6C 61 
62 63 


DESCRIPTION 


$4c constant (6502 JMP ingtrdetion). : 
USR function address lo, hi. 
: a fas 


Active VO channe! #. : 


Terminal width uausean: i 


Limit for scanning source columns eens bees 


Line number storage re 
BASIC INPUT buffer (80 bytes). 
Starting delimeter , -- 
Ending delimeter 

General counter for BASIC,. 2.-hene* 











pers 


Flag to remember dimensioned variables. 
Flag for variable type; O#numeric; 1~= string. 


Flag for integer tape. 


Flag to crunch reserved words (protects '& remark). 


Flag which allows subscripts in syntax. 
Flags INPUT or READ. : 
Fiag sign of TAN. 


Flag to suppress OUTPUT (+ normal; — suppressed). 


Index to next available descriptor. 
Pointer to last string temperary lo; hi. 


Table of double byte oa which pol to vaiables. 


Indirect index #1 lo; hiv. 
Indirect index #2 lo; hi. 
Pseudo register for function operands. 


3 


wbte 


- 


4 Pointer to. start of BASIC text area lo; hi byte. 


Pointer to start of variables lo; hi byte. 
Pointer to array table lo; hi byte. 
Pointer to end of variables lo; hi byte. 
Pointer to start of strings lo; hi byte. 


Pointer to top string space Io; hi byte.” 


Highest RAM adr to; hi byte. 


Current line being executed. A two in 54 means 5 statement ~ 


executed in a direct command. 
Line # for continue command lo; hi. ” 


Pointer to next STMNT to execute Jo: hi. 


Data tine # for errors lo; hi. 
Data statement pointer lo; hi. é— 


"A? 


-_ 


- 





— ——s 


~ 


porerewe 


we 


Expression evaluation 


64 65 
66 67 
68 69 
70 71 
72 73 
74 : - 
75 76 
77 78 
79 -- 
80 - 
81 -- 
82 83 
84 89 
$0 91 
92 93 
94 99 
100 - 
101 -- 
102 107 
108 -- 
109 - 
110 111 
RAM subroutines 
112 -- 
118 “- 
119 120 
136 140 
OS page zero storage 
141 143 
144 145 
146 _ 147 
148 . 149 
150 - 
151 - 
152 - 
153 184 
157 , - 
158 ~- 
159 - 
4 (160_____166, 
167 - 
168 - 
169 - 
170 - 
* \iZ 173 
174 - 
175 _ 
176 - 
177 - 
y W178 BS 
186 - 
187 188 
» 1189) = 
190 -- 
191 - 


Source of INPUT fo; hi. 
Current variable name. 
Pointer to variable in memory lo; hi. 


Pointer to variable referred to in current FOR-NEXT. qo" 


Pointer to current operator in table Jo, hi. 


Special mask for current operator. # 
Pointer to function definition fo; hi. 
Pointer to a string description lo; hi- 
Length of a string of above string. 


Constant used by garbage collect routine. 


$4C constant (6502 JMP inst). 
Vector for function dispatch 10; hi. 


) Floating accumutator £3. 
Biock transfer pointer #1 fo; hi. 


Block transfer pointer #2 lo; hi. 


Floating accumulator #1. (USR function evaluated hee, + 
Duplicate copy of sign of mantissa of FAC fT. ” 


Counter for # of bits fo shift to normalize FAC # 1. 


Floating accumulator #2. 
Overflow byte for floating argument. 
Duplicate copy of sign of mantissa. 





Pointer to ASCII rep of FAC in conversion routine lo; hi. 


CHRGOT RAM code. Gets next character from BASIC text. 
CHRGOT RAM code regets current characters. 


Pointer to source text Jo; hi. 7 
Next random number in storage. 


24 Hr clock in 1/60 sec. 
IRQ RAM vector | 4 #9 


:BRK inst ram vector wy --20.9P ow... 


INMI RAM vector hse 
31/0 operation status byte 
slast key index 


correction factor for clock 
Verify flag ‘ 
tndex to keyboard queue 
Reverse field on 
Unused 
Cursor on flag 
Count of jiffies to blink cursor 
Unused 
Character saved during blink 
Unused 
‘Pointer into logical file table 
:Default input device # 
‘Default output device # 
‘Vertical parity for tape 
Unused 
SYNC on tape header count 
Pointer to active cassette 
Unused 
Bit/byte tape error 
Reading shorts 
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192 : Index to addresses for tape error correction 


te 





%* 1193) _ Unused 
194 oF: Flag for cassette read..tolls* 
WH - Count of second of shorts to write before data 
196 197 Pointer to cursor position 
* 1197 198 | Unused oo ee 
199 200 Load start address ~~: i ed 
201 202 Load end address .°- a nd 
203 ae ; eee - G 
204 wet gt gy 4 2 
205 ~ Quote mode flag 
*#® L206 208 Unused i: 
209 ~ sLength current file name Str c 
210 ~ ;Current file logical addr 2 
21 - iCurrent file 2nd addr 
212 - _ Current file primary addr wk 
« * [zs ga Unused - 
218 Addr current file name str - 
ah ef Unused 8 
222 - iCassette read block count 7 
* 1223) - Unused Lo 
2240507. | 248 | Table of LBB of start addr of video display lines — aye 
249 - eer 
250 —t 
251 - 4 
252 _ 
253 254 





Page 1 


62 byte on bottom are used for error correction in tape reads. Also, buffer for ASCII when BASIC is 
expanding the FAC into a printable number. The rest of page 1 is used for storage of BASIC GOSUB and 
for NEXT context and hardware stack for the machine. : : 


PET PAGE TWO MEMORY MAP 


FROM TO DESCRIPTION 














512 $92 ‘Basic input buffer 
512 §13 program counter 
514 _- processor status 
$15 accumulator ~ é 
516 X index * 
$17 Y index = 
$18 tack pointer oo 
519 520 ‘User modifiable IRQ i477 ©? vee 
593 602 sLogicat file numbers : oe : 
603 612 ;Priraary device numbers 
613 622 ;Secondary addresses 
623 633 Unused 
634 825 Tape buffer #1 
826 1017 Tape buffer #2 
1018 1019 Unused 


AA 


cs 


ot 


VARIABLE ALLOCATION 2. oe Oe See aa 
Space is aliocated for varlables only as they are encountered. tis not possible to allocate an array on 
the basis of 2 single elements, hence the reason to execute DIM statement before array references. 
Seven bytes are allocated for each simple variable whether itis a string, number, or user defined 


function. 


The first two bytes give the nemeot the variable: 





eal aie i ee DON byte2 


INTEGER. firstcht + | gecondchr +128 
. , 128 . oF 128 


i 
! 


se Mies eee Sees ovee ecctnsl 


FLOATING secondchr 
Heceba tenes oa PP CFD Pen pegecerearpen 





STRING secondchr + 123 
or 128 




















FLOATING 








STRING pointer 
chr 
count 





The simple string variable points to a location in high memory, where the actual characters are stored. 
Examples of declaration and storage 
15% = 90 

201 181 0 90 0 0 0 


C3 ="“HELLO” 
67 128 5 .. 90 0 











cudt fer 





ee ne ere EEF te ORR Ee SOS Ol EON Ae Sten rat RNS EF ES CANON Lk. SY Bh ERE oT 





Locations 124 and 125 contain the first address of memory where a simple variable name will be 
found.By incrementig the address by 7 each time the ext simple variable name in the table is 
encountered.The end of the variables is defined-by the address in 126 and 127. 


Locations 126 and 127 also define the start of array storage. The first two bytes of array descriptors 5 
are the same as simple variables but the next five bytes are special as follows: 


byte 3 byte 4 byte 5 byte 6 : byte7 


VECTOR 7 + (size + 1)* Salis Sac en 
ARRAYS (dim)*A : size +1 


, where A = 2forinteger, = 3forstring,or = 5for floating. 


By incrementing the search address by the current byte #3 of the descriptoreach time, thent ¢ array 
variable is reached. Locations 128 and 129 contain the ending address of this table. 

















ee BASICTEXT 9 Mars 
HT Bese + 
' ‘ { 
(42,43) : at at rs 7 ae =" Fa We emer 
simple variable pointers involved in BASIC oes Ge Po uag te 
storage variable storage. . 
: (44,45) 
; array variable : 
i : ‘ : storage r Z 
(46,47) ——_—__-____-_- ne oe Ser . 
high : 
Hs Ae oe seh ate sar, Sete ance memory a 
i on 
i 
& : Is 
5 who. ur ' y 
a Yous af * 


“AS 








ee ee ee ee 


iat Saneeae | 


62 ee ee 





sel acd 


Rensed Tassie! 


A 
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Because the variables are divided in storage between arrays and simple variables insertion of an 
additional simpte variable is a bit more complicated once an array has been Gefined. First, the entire array 
storage area must be block moved upward by seven bytes and the pointers adjusted upward +7. 

Finally, the simple variable can be inserted at the end of simple variable storage. 





i. ~“1-- ff large arrays are defined and initialized first before simple variables are 
assigned, much execution time can be lost moving the arrays each time a 


' simple variable is defined. The best strategy to followin this case is to oe ‘= 
- assign a value to all known simple variables before assigning arrays. 
_, This will optimize execution speed. | 








Or 
> 


Functions of NEW and CLRon datapointer: © ‘s mee 
CLR . : ~ 2 
String pointer equated to top of memory data Pointerto Sd Sh i 

~~ ! 

start of text — 1end of array table to start of variables end H a : 
of simple variables to start of variables. . ‘ Boy ceed 





NEW 
String pointer equated to top of memory data pointerto 
startoftext — 1 endof array table to start of text +3 
end of simple variables to start of text + start of variables -, 
to start oftext +3. : \ 



















ue ee ee ee ee De a Do : 3 
me I pameees noms ree ees a ane Se Se - W OO  O 
aes ; 
: RAST wee igs Fog. 
top of memory ———-——_——> 2 —-—————>! 
oo an « es 
| oa 
i 
o 
e 
start of string ==> < 3 
- = 
‘ . a 3 
= : Ye] 
 ¢ end of array table ies 
ao J as 
ay Lu ’ 
a 
° g 
e s 
Zz = < 
= end of variables e = 
Ww Sad 
tb 8 
, lon fi < 
fi z 9 : 
& a S 
7 start of variables. & ~ 
< : S g . 
a ‘ > = 
io) 
Zz ‘ 
fo ‘ 
te i 
data statement 
: . 
SI 2 
= : 
! OF 
: 3 Ho 2 re) 
: start of text So 8G a 
Fe ot =< Oo 
F 2 i Oo = é 
Fe i i x ‘ 
oe oe | &§ 8 & 
yz Sas he 
gn 8 8 
Ly iW } = = 
ag i & a 
i = 8 
wo 
“ : 3 Es 
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HOW BASIC STATEMENTS ARE STORED 


1024 1025 1027 1029 


[o] | Line # | compressed BASIC text el Fr saee mime 


end of 


. Na by zero byte 
compressed BASIC text [o] 


end of text is 
Stored as zero 
link bytes 


A9 


~ statement . 
is flagged 


S feeeeel Se Seal 
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nn emma 
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Appendi« B. 


DEF FN : 

biM cde 

END 1 

| FOR-TO-STEP-NEXT 

GET 

GOSUB-RETURN 

GOTO 

IF-THEN 

, INPUT 

j LET _ 

ON-(GOSUB-GOTO) 
POKE-PEEK pth? des 
PRINT Ds tat Bazetitio 
READ-DATA-RESTORE ie thd ad. 
REM cath fe sehen aw 
STOP-CONT ae cet, 

- WAIT Sook ewe eae 






Somevoent 





hem 








In the following description of statements, an argument of V or W denotes a numeric variable. X denotes 
a numeric expression, X$ denotes a string expression and an ! or J denotes an expression that is 
truncated to an integer begore the statement is executed. Truncation means that any fractional Sa of 
the number is lost, e.g. 3.9 becomes 3, 4.01 becomes 4. ! 


Pmt honed ed 
re Tt 


DEF = = —— 100 DEF FNA(V)= WB +G The user can define functions like the 
Spe ta nee - Fog . a built-in functions (SQR, SGN, ABS, etc) : 
7 tote " through the use of the DEF statement. The 

_ name of the function is ‘FN’ followed by 
any legal variable name, for example: FNX, 
FNJ7, FNKO, FNR2. User-furnished 
functions are restructed to one line. 
A function may be defined to be any 
expression, but may only have one 
argument. In the example, B & C are 
variables that are used in the program. 
Executing the DEF statement defines the 
function. User-defined functions can be 
redefined by executing another DEF 
statement for the same function. 
User-defined string functions are not 
allowed. ‘V’ is called the dummy variable. 








B-1 


110 Z = FNA(3) 


200 DEF FNA(V) = FNB(V) 


DIM 113 DIM A(3),B(10) 


114 DIM R3(5,5), DS(2,2,2) 


115 DIM Q4(N),2(2* 1) 


117 A(8)=4 























- Execution of this statement following the 


above would cause Z to be set to VB+C, 
but the value of V would be unchanged. 

A function definition may be recursive. 

A DEF statement may be written in terms 
of other functions, however. a 
Allocates space for matrices. All matrix: - 
examples are set to zero by the DIM) >> * 
statement. Une 
Matrices can have more thanone ~ >. 
dimension. Up to 255 elements aces 
Matrices can be dimensioned dynamically 
during program execution. If a matrix is 
not explicitly dimensioned with a DIM © 
statement, it is assumed to have as many 
subscripts as implied in its first use and 
whose subscripts may range from 0 to 10 
(eleven elements). ro oe 
If this statement was encountered before 

a DIM statement for A was found in the 
program, it would be as if a DIM A(10) had 
been executed previous to the execution of 
line 117. All subscripts start at zero (0), °~ 
which means that DIM x (100) really =<: * 
allocates 101 matrix elements.. om 
Terminates program execution without © 
printing a BREAK message. (See STOP) 
CONT after an END statement causes ...... 


” execution to resume at the statement 


after the END statement. END can be used: 
anywhere in the program, and is optional. 
V is set equal to the value of the 
expression following the equal sign, in this 
case 1. This value is called the initial value. 
Then the statements between FOR and 
NEXT are executed. The final value is the 
value of the expression following the TO. 
The step is the vatue for the expression 
following STEP. When the NEXT 

statement is encountered, the step is 
added to the variable. 

lf no STEP was specified, it is assumed to 
be one. If the step is positive and the new 
value of the variable is < =to the final 
vatue (9.3 in this example), or the step value 


vce men gente eR RRR EAR EY MP NATE IEEE EA EINE SOE 


Cant 


a 


hee 


ake 


coe 


od teats my wonny — 


wood 


ee 


GET 


GOSUB 


350 NEXT: V,W 





- 315 FOR V=10°N TO 3.4/Q STEP 


SQR(R) von 








wy Tae ah Re aieosy* 


340 NEXT V 


345 NEXT 


rae fey 





10 GOSUB 910 


10 GET A$: 1FAS =" "THEN 10 


Pa 
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is negative and the new value of tne 
variable is =>the final value, then the first 
statement following the FOR statement is 
executed. Otherwise, the statement - 
following the NEXT statement is executed. 
Ali FOR toops execute the statements 
between the FOR and the NEXT at least 
once, even in the case like FOR V=1T0 0. 


Note that expressions (formulas) may be 
used for the initial, final and step values in 
the FOR loop. The variables of the 
expressions are computed only once, 
before the body of the FOR...NEXT loop to 
terminate. The statement between the FOR 
and its corresponding NEXT in doth 
example above (310) would be 

executed 9 times. 

Marks the end of a FOR loop. 

If no variable is given, matches the most 
recent FOR loop. : 

A single NEXT may be used to match 
multiple FOR statements. Equivalent to 
NEXT V: NEXT W. Specification the former 
way Saves 1 byte of BASIC text storage. 
Works like INPUT or INPUT# on a single 
character basis. Unlike INPUT though, this 
function scans the keyboard and does not 
wait for carriage return to be pressed. tf no 
key has been pressed, AS =" "(null string) 
and A=0 after executing this statement. 
This example stays in a loop until a key 
has been ti ae 

pressed. ; 

Branches to the specified statement (910) 
until a RETURN is encountered; when a 
branch is.then made to the statement after 
the GOSUB. GOSUB nesting is limited to 
23 levels. 

Subroutines line numbers are searched for 
from the beginning of text. To increase 
execution speed, define subroutines first 
with low line numbers. Fewer digits in line 
numbers will also Save Storage space. 


tere eee NN TE RRR Ee het erent a nina Ree te at en a ann a 


50 RETURN. - be Causes a subroutine to return to the 
gh Statement after the most recently executed 
aa An “a ao GOsuB. 
GOTO . 50 GOTO 100 on Branches to the statement specified. 
Ae oe 5 fo Bik ats Keeping line numbers low will save space 
eo Sigh Hi we Si on GOSUB statements. 
IF..GOTO | 32 IF xX = Y + 23x4 GOTO 92 "Equivalent to IF..THEN, except that IF... 
oa GOTO must be followed by a line number, 
while IF...THEN can be followed by either a 
line number or another statement. 


IF... THEN 22 15 1F x<O THEN 5. :-: Branches to specified statement if the 
me pile, Ricca yr, ShNG sore ody relation is True. 
251F X=5 THEN 50:Z2=A WARNING. The “Z =A” will never be 


executed because if the relation is true, 
BASIC wil! branch to line 50. If the relation 
is a false, BASIC will proceed to the line 
after tine 25. 





a3 In this example, if X is less than 0, the 
24 Losin PRINT statement will be executed and then 
RP kp Hig te the GOTO statement will branch to fine 
350. If the X was 0 or positive, BASIC will 
proceed to execute the lines after line 26. 
Binary floating point representations of 
decimal fractions may not always be exact. 
sometimes a comparison will fail because 
of this. In this case, compare the number to 
eee ad Ma eh 4 z a + range. - 
INPUT. a kOe eee RE Request information character by character 
cad Be tt eee oa tee until carriage return from the keyboard, 
Tad fe OEM 2 Sa RLS easel ety turning the characters into numbers or 
re aggre oe rt Bee de nes strings of a maximum length of 79 
characters. oe: 
Requests data from the terminal (to be 
typed in). Each value must be separated 
from the preceeding value by a comma (,). . 
The last value typed should be followed by 
a carriage return. A'‘‘?" is typed as a 














ees prompt character. However, only constants 
eb ee may be typed in as a response to an 
INPUT statement, such as 4.5E-3 or “CAT”. 
w If more data was requested in an INPUT 
statement than was typed in, a "2?" is 
printed (if INPUT is from terminal) and the 
_ rest of the data should be typed in. HW more 


et aes aaa te a a es el Sede Sea 


ee 


i I ae 


LET 


ON...GOTO 


ON...GOSUB 


POKE 


5S INPUT “VALUE";V 


tet tall OT el 





_ 300 LET W=X 
310 V=5.1 


_ 100 ON 1 GOTO 10,20,30,40 














405 ON SGN (X)-+2 GOTO 
40,50,60 


110 ON 1 GOSUB 50,60 


357 POKE I,J 
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data was typed in than requested, the extra 
data will be ignored and a warning “EXTRA 
IGNORED" will be printed when this 
happens. String must be input in the same 
format as they are specified in DATA 
statements. 

Optionally types a prompt string (“VALUE”) 
before requesting data from the terminal. 
Typing CONT after an INPUT command 

has been interrupted will cause execution 
to resume at the INPUT statement. 

An INPUT command is interrupted if a 
carriage return is the only character 
entered. 


-¢ 
, 
, 


Assigns a value to a variable. 

“LET” is optional. The type of variable 

(numeric or string) must be the same as the 

evaluated expression. 

Branches to the line indicated by the !'th 

number after the GOTO. 

That is : 

If !=1, THEN GOTO LINE 10 

If l=2, THEN GOTO LINE 20 

If f=3, THEN GOTO LINE 30 

If 1=4, THEN GOTO LINE 40, 

If t=O or I attempts to select a nonexistent 

line > =) in this case, the statement after 

the ON statement is executed. However, 

if fis <255 or >0, an “ILLEGAL QUANTITY” 

error message will result. As many line 

numbers as will fit on a 79-byte line can 

follow an ON...GOTO. 

This statement will branch to line 40 if the 

expression X is less than zero, to line 50 if 

it equals zero, and to fine 60 if it is equal 
to one. 

tdentical to “ON...GOTO", except that a 

subroutine called (GOSUB), is executed 

instead of a GOTO. RETURN from the. 

GOSUB branches to the statement after the 

ON...GOSUB. 

The POKE statement stores the byte 

specified by its second argument (J) into 

the location given by its first argument (I). 


» 


PRINT 


READ. 


10A=PEEK() 











SS 88 


ey 





360 PRINT X,Y,Z 
370 PRINT 
380 PRINT X,Y 


390 PRINT “VALUE” IS"\A 
400 PRINT A2,B, 





410 PRINT MIDS(AS,2); 


490 READ V.W 
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The byte to be stored must be =>0 and 

< = 255, or an “ILLEGAL QUANTITY” error 
will occur. The address (I) must be =>0 
and < = 65535, or an “ILLEGAL QUANTITY” 
error will result. POKE works only on RAM 
and 10 POKEing. Certain locations will 
disturb normal PET operation unless reset. 
It is not possible to POKE the PEEK of a 
location into a location inPET ROM. 


- PEEK is a function of an address and 


returns a byte value contained in that 
location. BASIC cannot be PEEKed and 


PEEK of locations $C000 to $E1D9 yields a : 


value of zero. 

Sends the data to PET TV display. BASIC 
software calls a subroutine in the system 
software and loads the character in the 
accumulator. 

Prints the value of expressions on the 


terminal. If the list of values to be printed ; 
out dogs not end with a comma (ora aol 


semicolon (:), then a carriage returniline 
feed is executed after all the values have 
been printed. Strings enclosed in quotes 

(") may also be printed. lf a semicolon 
separates (wo expressions in the list, 

their values are printed next to each other. 
If a comma appears after an expression in 
the fist, then spaces are printed until the 
carriage is at the beginning of the next N 
column field (until the carriage ts at column 
N,2N,3N,4N...). If there is no list of 
expressions to be printed, then a carriage 
return is executed. : 

String expressions may be printed. A 
semicolon is not needed between string 
expressions such as PRINT ASBS “HELLO” 
that are to be concatenated. 


Reads data into specified variable from a ie 


DATA statement. The first piece of data 
read will be the first piece of data listed in 
the first data statement of the program. 
The second piece of data read will be the 
second piece fisted in the first OATA : 
statement. and so on. When ail of the data 





(<Fs 


ce 


Larne 


crt oped 





sr 


2 a 
ina 
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i: 


DATA 4ODATA13 


oA 4oP pursing ela eee bet 


jem? 


20 DATA “CBM,INC” 
30 DATA PET, “2001” 


ee 


= 
oI 


won bead 


ae RESTORE 510 RESTORE 
| 
| REM 500 REM NOW SET V=0 
| 
| ; 505REM SET V=0:V=0 
506 V =0: REM SET V=0 
| STOP 9000 STOP 
| CONT 
I, 
| WAIT WAIT I,K 
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have been read from the first DATA 
statement, the next piece of data to be 
read will be the first piece listed in the 
second DATA statement of the program. 
Attempting to read mora data then there is 
In all the DATA statements In a program 
will cause an “OUT OF DATA” error. The 
line number given in the “SYNTAX ERROR” 
will refer to the line number where the error 
actually is located. 

Specifies data, read from left to right. 
information appears In data statements in 
the same order as it will be read in the 
program. 

Strings may be read from DATA 
statements. If you want the string to 
contain a colon (:) or commas (,), or leading 
blanks, you must enclose the string in 
double quotes. It is impossible to have a 
double quote within string data or a string 
literal. (* “ANYTHING” ") is Hlegal. 

Ailows the rereading of DATA statements. 
After a RESTORE, the next piece of data 
read will be the first piece listed In the 
first DATA statement, and so on as ina 
normal READ operation. 

Allows the programmer to put comments 
tin his program. REM statements are not 
executed, but can be branched to. A REM 
statement is terminated by end of line, but 
hot by a “:". we aie 


‘In this case, the V=0 will never be ~ 


executed by BASIC. 

In this case V =0 will be executed. 

Causes a program to stop execution and to 
enter command mode. Prints BREAK IN 
LINE 9000 {as per this example). CONT 
after a STOP branches to the statement 
following the STOP. 

A command that can be executed only in 
direct mode. Resumes program execution 
after STOP, END, or use of STOP key. 

A program cannot be resumed after error 
condition, editing, CLR, or NEW. 

This statement reads the status of memory 


» 


ny 
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location |, exclusive OR's K with status, 
then AND's the result with J until a non- 
zero result is obtained. Execution of the 
Program continues at the statement 
following the WAIT. 

If the WAIT statement only has two 
arguments, K is assumed to be zero. If you 
are waiting for a bit to become zero, there 
should be a one in the corresponding : 
position of K.0<= I< =65536 J,K must be 
<=0 and > = 255, . : 
The STOP key cannot interrupt a WAIT. 
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i Appendix C 


CLR ges oy Mac Pinatas 

r LIST Te sie tio ik sul aaah Seas 

y LOAD set pings hates phi 
NEW eee seals 

RUN oo tacas eh 

SAVE Minas Loan 

VERIFY ele mice tiled Sy 








terminate program execution when they finish. 


1 


CLR 
LIST LIST X ‘ 
"LIST or LIST- 
| 7 LIST X 
La : 
] LIST -X 
| _ LIST Y-X 
LOAD LOAD 
| LOAD “HURKLE” 
| LOAD “HURKLE”, 2 


10 LOAD “HURKLE” 


_ CA 


..... BASIC COMMANDS 


A command is usually given after BASIC has typed READY. This is called the “Command Level”. 
Commands may be usec as program staternents. Certain commands, such as LIST and NEW wil! 


Deletes all stored references to variables, 
arrays, functions, GOSUB and FOR-NEXT 
context. 

Lists line “X” if there is one. 

Lists the entire program. 

Lists all lines in a program with a line 
number equal to, or greater than, “X". 

Lists all of the fines in a program 

with a tine number less than, or 

equal to, "X”. 

Lists. all of the lines within a program with 
line numbers equal to, or greater than, “Y", 
and less than or equal to “X”. 

lf LIST is used as a program statement, the 
program will terminate after it is executed. 
Load first program found on cassette #1 
into memory. 

Search for named file on cassette #1 and 
then foad it into memory. 

Same as previous, except from device #2. 
When LOAD is specified as a program 
statement, execution of the current 
program in memory stops at this point. 

A normal load of program proceeds. The 
new program begins execution from its 
lowest line number. Variables and their 
values are passed from the load to the new 
program. Strings and function definitions 
cannot be relied upon because BASIC 
maintains pointers into the oid text 


NEW 
RUN 


SAVE 


hee 


‘VERIFY 





“RUN 2000 





RUN 





SAVE es 
SAVE “HURKLE” 
SAVE “HURKLE”, 2 


” SAVE “HURKLE”, 2,17 
VERIFY “HURKLE" ° 
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_ where they used to be. Strings can be 


forced to exist in permanent string 

variable storage by performing an operation 
on them prior to LOAD, e.g. AS=AS +". 
WARNING: On an overlay LOAD, the 
overlaying program must have a text 
storage requirement less than or equal ta 
the previous program. If this is not true, 
then the variables will be overwritten % 
because they are stored immediately after 


. text in memory. 


Deletes current program and ail variables. 
Starts execution of the program currently 
in memory at the lowest numbered 
statementment. RUN deletes all variables 
(like CLR) and restores DATA. If you have 
stopped your program and wish to continue 
execution at some point in the program, 
use a direct GOTO statement to start 
execution of your program at the desired 
line. 

Optionally starts ‘RUN at the specified tine 
number. _ 

Save BASIC text on cassette #1. 

Save and name the file on cassette #1. 
Save on 2nd cassette unit. 

Save and write end of tape block. 

Same parameters as LOAD. Compares 
contents of memory with file and reports 
success/failure of compare. — 
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FUNCTION 
ASC 


CHRS a 


LEFTS$ 


LEN 
MIDS 


RIGHTS 
STR$ 


VAL 


String Functions 


EXAMPLE 
10 A=ASC(°XYZ") 


“40 AS=CHRS(N) 


10 2LEFTS(X$,A) 


10 ?7LEN(X$) ob okey 
10 ?MIDS$(XS,A,B) 


10 2RIGHTS(X$,A) 
10 AS=STRS(A) 

10 A=VAL(AS) 

20 A=VAL("A") 


PURPOSE ” ee 
Returns integer value corresponding to 
ASCII! code of first character in string. 
Returns character corresponding to 
ASCII code number : 
Returns leftmost A characters from 
string. 

Returns length of string. 

Returns B characters from string, 
starting with the Ath character. 
Returns rightmost A characters from 
string. 

Returns string representation of 
number. 

Returns numeric representation of 
string. 

lf string not numeric, returns “0”. 


ASC, LEN and VAL functions return numerical results. They may be used as part of an expression. 
Assignment statements are used here for examples only; other statement types may be used. 


FUNCTION 
ABS 


ATN 
cos 
DEF FN 


SYMBOL 
EXP 


INT 


LOG 


RND 


SGN 


SIN 


SQR 
TAN 


Arithmetic Functions 


EXAMPLE 
10 C=ABS(A} 


10 CZATN(A) 
10 C=COS(A) 
10 DEF FNA(B)=C*D 


ue 


PURPOSE 
Returns magnitude of argument without 
regard to sign. 


Returns arctangent of argument. C will 
be expressed in radians. 


:. Returns cosine of argument. A must be 


expressed in radians. 
Allows user to define a function. 
Function label A must be a single letter; 


‘ argument B is a dummy. 


Arithmetic Functions 


EXAMPLE 
10 C=EXP(A) 


10 C=INT(A) 
10 C=LOG(A) 


10 C=RND(A) 


10 C=SGN(A) 
10 C=SIN(A) 


10 C=SQR(A) . 
10 C=TAN{A) 


PURPOSE 


Returns constant ‘e’ raised to power of 
the argument. In this example, eA. 
Returns largest integer less than or 
equal to argument. 

Returns natural fogarithm of argument. 
Argument must be greater than or equal 
to zero. 

Generates a random number between 
zero and one. If A is less than 0, the 
same random number is produced in 
each call to RND. If A=0, the same 
sequence of random numbers is 
generated each time RND is called. If A 
is greater than 0, a new sequence is 
produced for each call to RND. 
Returns -1 if argument is negative, 
returns 0 if argument is zero, and 
returns +1 if argument is positive. 
Returns sine or argument. A must be 
expressed in radians. 

Returns square root of argument. 
Returns tangent of argument. A must be 
expressed in radians. 
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EXPRESSIONS AND OPERATORS 


ost Shea tab SEA as es (ee gear 


RELATIONAL OPERATO RS - 


be 













Fa ARITHMETIC OPERATORS 





equal -- 
tess than 
greater than 


. LE. 


G.E. - 
notequal «| 





area 


qe de 


add 8" 2 oF 
subtract 
multiply 
divide 
exponentiation 
negation) . 


STRING OPERATO Ve oe 


oA 


(concatenation) 


Lok Set 


Pee PS OP OS ey 


’ 
{ 


m7 





ee las 


L 2 
once 


x4 


bot 


bin? 


oe | 


SYMBOL 


"ARITHMETIC OPERATORS | 


SAMPLE STATEMENT 


Asi00° a ae 
LET 222.5 Pi 
Be -A 


PURPOSE/USE | 
holo 








wth oa 


Assigns a value to a variable, 


the LET is optional. che aT 


Negation. Note that 0-A is Subir Ction, 


-while ~ Ais negation. gee 


130 PRINT Xt3 


140 X= R*(B°D) 
160 PRINT x/1.3 
160.Z2£R4+T4+Q 
170 d= 100=1 


RELATIONAL OPERATORS 
Relational operators Gan be used as part of any expression. 4 
Relational Hates expressions will always have a value of True (- t)ora value of Fatse (0). 


Thetofore, (62 4) = 


0, (5#5)= =1, etc. 


:Exponentation (equal to X°X*X 
iin the sample statement). Ot0=1. Oto any 
-other power = 0.ATB, with A negative and 


B not an integer gives an FC error. 
Multiplication. 


Division. r 


Addition. 3 


_ Subtraction. 


. wpe 


ae 


The THEN clause of an IF statement is executed whenever the terreus after the IF is not nave to 0. That 
if to aay, 1F X THEN..S eauivelent to IF X<> OTHEN... : 


“SYMBOL 


& 
<> 
> 
< 


AND 


OR 


NOT 


SAMPLE STATEMENT 
10 IF A=15 THEN 4C 
7OIF A< > O THEN 5 
. 30 IF B >100 THEN 8 
- 160 IF B<2 THEN 10 
180 IF 100<=8+C THEN 10 


tebe 


“400IF Q>2RTHENSO |. 


ake ae ae 


bende 


BOOLEAN OPERATORS 


Bole fe A ag: 


' 21F A<5 AND B<2 THEN 7 





PURPOSE/USE 
Expression Equals Expression. 


. Expression Does Not Equal Expression. 


Expression Greater Than Expression. 


. Expression Less Than Expression. * 
. Expression Less Than Or Equal To 

;; Expression. : Sooty 

. Expression Greater Than Or Equal To. 


Expression. — ct ' re 








If expression 1 (A <5) AND expression 2 


* (B <2) are both true, then branch to line 7. 


IF A<1 OR B<2 THEN 2 


IF NOT Q3 THEN 4 


If either expression 1 (A <1) OR expression 
2 (B <2) is true, then branch to line 2. 

lf expression “NOT Q3" is true (because 
Q3 is false), then branch to line 4. 

NOT -—1=0 (NOT true = false). 


AND, OR and NOT can be used for bit manipulation, and for performing boolean operations. 
These three operators convert their arguments to sixteen bit, signed two's. complement integers in the 


D2 


tange —32768to + 32767. They then perform the specified logical operation on them and return a result 
within the same range. If the arguments are not in this range, an 7ILLEGAL QUANTITY ERROR results. 


The operations are performed in bitwise fashion, this means that each bit of the result is obtained by 


examining the bit in the same position for each argument. 


The following truth table shows the logical relationship between bits: 


OPERATOR 


AND 





NOT 


UE ontesg 


63 AND 16=16 


15 AND 14= 74 


-1AND 8=8 
4 AND 2=0 

10 OR 10=10 
-10R ~2=-1 
NOT O= -1 
NOT X 

« 

NOT t= 2. 














ARG.1:  —— -ARG.2 - RESULT 
a4 1 
-on 0 % . 
ce te 0 
“0: 0 
1 1 
1 1 
0 See : 
0 0 u 
1 : 0 eno 
0 ro Pa yh Me 





sige eis Oe BOOLEON EXPRESSIONS © 


an ON LES Py Whe, 


Since 63 equals binary 111111 and 16 equals binary 10000, the result of the AND 


_is binary 10000 or 16. 


15 equals mae 111414 and 14 equals ete +410, so = and 14 equals cee ug 
or 14,8 se 

~ 1 equals binary 1111111141111111 and 8 pea Bina 1000, so the result) is 
binary 1000 or 8 decimal. 

4 equals binary 100 and 2 equals binary 10, so the result is binary 0 because none 
of the bits in either argument match to give a 1 bit in the result. - 

Binary 1010 OR'd with binary 1010, or 10 decimal. ae “ 

Binary 1411111141111111 (— 1) OR’d with piesa eee {-2) matels 
binary 1111191111111111, or -1. ’ 

The bit complement of binary 0 to 16 places is sixteen ones (1117131111111111)} 
or -—1. Also NOT ~1=0. 

NOT X is equal to --(X +1). This is because to form the sixteen bit two's 
complement of the binary, you take the bit (one’s) complement and add one. 

The sixteen bit complement of 1 is 1141111111111110, which is equal to —(1+ 1) 
or -2... 
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RULES FOR EVALUATING EXPRESSIONS 


” 


iw 


ee he me ge ae 
Rules for Evaluating Expressions: : e : 
t Operations of higher presedeace are sentria pesare cakes of lower precedence. This means the 


24 10/5 equals 4, not 2.4. When operations of equal piepagency are found ina is the teft: aeer one 


ig executed first:6=3+5=8, not =2. — 2g eee 
‘ 9. The order in which operations aré performed can always be specified explicitly through the use of 


parénthéesés. For instance, to add 5 to 3 and then divide that by 4, we would use (5+ au which eqals 2. 
H, instead, we had used 5 + 3/4, wé would get 5.75 as a result (5 plus 3/4). 

The precedence of dperators uséd in evaluating expressions is as follows, in order beginning with the 
highest precedence: (Note: Operators tisted on the same line have the same precedence). 

+) FORMULAS ENCLOSED IN PARENTHESIS ARE ALWAYS EVALUATED FIRST 

2)t EXPONENTATION * 





3) NEGATION =X WHERE X MAY BE A FORMULA ey 
441 MULTIPLICATION AND DIVISION sot patiple tree aiid agatha dat 
s)+ = ADDITION AND SUBTRACTION Ne oe 


6) RELATIONAL OPERATORS: = EQUAL, 
<> NOT EQUAL 
(equal precedence < LESS THAN ; BROS D ESO SOR Gh ES 
for ail Six). > GREATER THAN : Ae ghd 
<# LESS THAN OR EQUAL . i Jeena hs. aioe ae, SONS 
>= GREATER THAN OR EQUAL 
7) NOT LOGICAL AND BITWISE “NOT” LIKE NEGATION, NOT TAKES S ONLY T THE FORMULA TO 
i¥S RIGHT AS AN ARGUMENT 








8) ANO LOGICAL AND BITWISE “AND” ee ee ak 


$) OR LOGIGAL AND BITWISE “OR” > 
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Appendix E 


SPACE HINTS 


In order to make your program smaller and save space, the following hints may be useful. 


1) Use multiple statements per line. There is a small amount of overhead. (5 bytes) associated with each 
line in the program. Two of these five bytes contain the line number of the line in binary. This means that 
no matter how many digits you have in your line number (minimum line number is 0, maximum is 63999), it 
takes the same number of bytes. Putting as many statements as possibte in a line will cut down on the 
number of bytes used by your program. . 


2) Delete all unnecessary spaces from your program. For instance: 


10 PRINT X, Y, Z 


Ton Deere ak eo ae a wot 


uses three more bytes than 


10 PRINTX,Y,Z 
Note: All spaces between the line number and the first non-blank character are ignored. 


3) Delete all REM statements. Each REM statement uses at least one byte plus the number of bytes in the 
text. For instance, the statement 130 REM THIS IS A COMMENT uses up 24 bytes of memory. 


In the statement 140 X =X + Y:REM UPDATE SUM, the REM uses 14 bytes of memory inciuding the colon 
before the REM. : 


4) Use variables instead of constants. Suppose you use the constant 1.02369 ten times in your program. 


Hf you insert a statement Eph Seo 


Pee SAPs 


10Q = 1.02369 
in the program, and use Q instead of 1.02369 each time it is needed, you will save 40 bytes. This will also 
result in a speed improvement. : 


5) A program need not end with an END; so, an END statement at the end of a program may be deleted. 


6) Re-use the same variables. tf you havé a variable T which is used to holda temporary result in one part 
of the program and you needa temporary variable later in your program, use it again. Or, if you are asking 
the termina! user to give a YES or NO answer to two different questions at two different times during the 
execution of the program, use the same temporary variable A$ to store the reply. 


7) Use GOSUB's to execute sections of Program statemnts that perform identical actions. 


8) Use the zero elements of matrices; for instance, A(O), B(O,X) 


SPEED HINTS 
The hints below should improve the execution time of your BASIC program. Note that some of these hints 
are the same as those used to decrease the space used by your programs. This means that in many cases 
you can increase the efficiency of both the speed and size of your programs at the sarne time. 
1) Delete all unnecessary spaces and REM'’s from the program. This may cause a smail decrease in 
execution time because BASIC would otherwise have to ignore or Skip over spaces and REM Statements. 
2) THIS IS PROBABLY THE MOST IMPORTANT SPEED HINT BY A FACTOR OF 10. Use variables instead 
cf constants. tt takes more time to convert a constant to its floating point representation than it does to 
f-tch the value of a simple or matrix variable. This is especially important within FOR...NEXT loops or 
ovher code that is executed repeatedly. P 


s 


E-1 


3) Order your definitions.of variables caretully. Variables which are encountered first during the execution 
of a BASIC program are allocated at the start of the variable table. This means that a statement such as 
5 A=0:B=A:C =A, will place A first, B second, and C third in the symbol table {assuming line 5is the 
first statement executed in the program). Later in the Program, when BASIC finds a reference to the 
variable A, it will search only one entry in the symbol table to find A, two entries to find B and three entries 
to find C, etc. 


4) Use NEXT statements without the index variable. NEXT is somewhat faster than NEXT }t because no 
check is made to see if the variable specified in the NEXT is the same variable in the most recent FOR 
statement. . ‘ : ; : ! Kahle 
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Entering BASIC. J.Sack and J. Maacane, Science dedarcn Assoblatse i078 


BASIC:A Computer Programming Language. C. Pegels, Hotden-Day,Inc. 1973 


F . ve é : i ore (arotbon pet Sea raya ee gon Pee, 
BASIC Programming. J. iecieay and T. ide: eee Cameutet Gas 1010 Doyle(P.O. Box 3100), 
Menlo Park, Ca 94025, 1967 


BASIC. Albrecht, Finkle and Brown. Peoples Computer Co., 1010 Doyle(P.0.Box 3100), Menlo Park, 
Ca $4025, 1973 


A Guided Tour of Computer Programming in BASIC. T. Dwyer, Houghton Mifflin Co., 1973 


Prograraming Time Shared Computer in BASIC. Eugene H. Barnett. Wiley-Interscience LIC 72-175789 
($12.00) 


Programming Language #2. Digital Equipment Corp., Maynard, MA 01754 


101 BASIC Computer Games. Software Distribution Center. Digital Equipment Corp., Maynard, 
MA01754 ($7.50) 


What to Do After You Hit Return. Peoples Computer Co., 1010 Doyle(P.0.Box 310), 
Menlo Park, Ca 94025 ($6.95) 


Basic BASIC. James S. Coan, Hyden Book Co., Rochelle Park, NJ 


WORKSOOKS 1-5. T. 1. S., P.O.Box 921, Los Almos, NM 87544 
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